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I.  INTRODUCTION 


The  Belt  Celestial  Computation  Program  (BELTP)  was 
written  for  the  Univac  490  as  part  of  the  pointing  system  for 
the  Haystack  radar  antenna  operated  by  Lincoln  Laboratory. 
Written  in  SPURT  assembly  language,  the  program  calculates 
pointing  information  in  celestial  coordinates  for  a  selected 
point  of  a  belt  in  orbit  around  the  earth,  such  as  the  West 
Ford  dipole  belt.  Basically,  the  program  performs  the  calcu¬ 
lations  necessary  to  convert  mean  orbital  elements  which  are 
valid  as  of  a  certain  day  to  instantaneous  elements  valid 
as  of  the  time  of  computation;  from  these  it  then  determines 
celestial  coordinates  and  their  first  time  derivatives  of  a 
point  on  the  orbiting  belt  according  to  the  "schedule"  (mode  of 
operation)  of  the  program.  The  schedule  selects  the  point  on 
the  belt  by  keeping  one  coordinate  fixed. 

BELTP  is  divided  into  three  main  sections:  the  controller, 
the  four  schedules,  and  the  utility  routines.  The  controller 
is  further  divided  into  an  initialization  section  and  a  working 
section.  When  the  initialization  section  is  entered  with 
L(SYSTATl)  set  to  -0,  the  operator  types  in  the  parameters  on 
the  on-line  typewriter.  When  the  initialization  section  is 
entered  with  L(SYSTAT1)  set  to  +0,  the  operator  may  examine 
the  previous  input  values  and,  optionally,  either  use  them 
again  or  change  them. 

Each  of  the  four  schedules  is  divided  into  two  distinct 
subprograms.  The  initialization  section,  which  is  entered  only 
once  during  initialization  or  reinitialization,  calculates  the 
values  that  are  to  be  constant  during  the  tracking,  given  the 
initial  input  values.  When  the  working  section  of  a  schedule 
is  entered,  a  calculation  is  made  for  the  right  ascension, 
declination,  and  range  for  the  time  contained  in  W (CELTIME) . 

All  routines  save  and  restore  all  registers  with  the  exception 
of  B7 . 

Errors  will  fall  into  two  general  classifications:  the 
belt  is  untrackable  because  of  the  physical  limitations  of 
the  radar  scan,  or  inconsistent  parameters  have  been  specified. 
If  an  error  occurs,  control  will  be  transferred  to  the  location 
following  the  return  jump  to  BELTP  and  the  A-register  will  con¬ 
tain  a  code  indicating  the  nature  and  probable  location  of  the 
error.  A  normal  exit  will  transfer  control  to  two  locations 
after  the  return  jump. 
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II.  PROGRAM  SPECIFICATIONS 


Calling  Sequence 


RJP  H(BELTP) 
Error  return 
Normal  return 


H  =  L  if  initialization 
or  reinitialization 
H  =  U  if  normal  operational 
entry  for  the  computation 
of  a  point  set 


Input  (via  on-line  typewriter) 


Label 

Description 

Unit 

Range 

A  (E.R.) 

Semi-major  axis,  a 

(earth  radii) 

1 

to 

25 

E 

Eccentricity,  e 

0 

to 

r 

I 

Inclination,  £ 

(degrees) 

0 

to 

180 

OMEGA 

Argument  of  perigee 
at  epoch, 

(degrees) 

-360 

to 

+360 

OMEGADOT 

Time  derivative  of 
argument  of 
perigee,  J, 

(degree s/day) 

-90 

to 

+  90 

DRAGON 

Right  ascension  of 
ascending  node  at 
epoch,  {\, 

(degrees) 

-360 

to 

+360 

DRAGONDOT 

Time  derivative  of 

(degree  s/day) 

-90 

to 

+  90 

right  ascension  of 

ascending  node,  0 

EPOCH  Epoch  (time  of  validity) 

YEAR  xxxx  xxxx  =  year  (e.g.  1965) 

MONTH  yy  yy  =  month  (e.g.  11) 

DAY  (0.000-31.999)  day  and  decimal  portion  of  day 


FIXDEC  (1) 


SCAN  (2) 


FIXRA  (3) 


FIXLONG  (4) 
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Depending 
input : 

on  the  schedule,  one  of 

the  following  sets  is 

if  1  DEC 

Declination  (6) 

(degrees)  -90  to 

+90 

if  2  PERIOD 

Period  (1/du/dt) 

(minutes/degree) 

ARC  OF  LAT 

First  argument  of 
latitude  point  (u) 

(degrees)  -360  to 

+360 

if  3  RA 

Right  ascension,  a. 

(degrees)  -360  to 

+360 

if  4  EAST  LONG 

Longitude  (east  is 
positive) 

(degrees)  -360  to 

+360 

Output  (common 

storage) 

Label 

Description 

Units  and  Scaling 

RA 

Right  ascension  of 
point  of  belt,  Q! 

(Revolutions  B27) 

DEC 

Declination  of 
point  of  belt,  6 

(Revolutions  B27) 

SINORIENT 

Sine  of  orientation 
angle ,  -sin3 

(B29) 

COSORIENT 

Cosine  of  orientation 
angle,  cos0 

(B29) 

RADIUS 

Radius  from  center  of 
earth  to  point  of 
belt,  p 

(earth  radii  B22) 

DECDOT 

Time  derivative  of 
declination ,  d6/dt 

(radians/sec  B37) 

RADOT 

(da/dt)  cos6 

(radians/sec  B37) 

RADIUSDOT 

Time  derivative  of 
radius,  dp/dt 

(nautical  miles/sec  B24) 
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Storage  Areas  Read 


L  (SYSTATI) 

+0  if  reinitialization 
-0  if  initialization 

W  (CELTIME) 

Time  of  computation 

(days  B28) 

W  (LONGITUDE) 

Longitude  of  site 

(degrees  B20) 

W  (GEOCENLAT) 

Geocentric  latitude 
of  site 

(degrees  B20) 

W  (SIDERTIME) 

Right  ascension  of  site 

(degrees  B26) 

W  (ELEV) 

Elevation  of  antenna 

W  (FRAMES  IZE) 

(BO) 

Error  Conditions 

Control  will  be  transferred  to  the  error  return.  A 
code  will  be  left  in  the  A-register  indicating  the  nature  of 
the  error  and  the  routine  in  which  it  occurred. 


Error 

Code  Program  _ Condition _ 

0  FIXLATI  The  declination  is  equal  to  90°  or  270°  or 

the  inclination  is  equal  to  0°  or  180° . 

1  FIXLATI  The  inclination  of  the  belt  is  too  3ow  for 

this  declination.  The  plane  of  the  belt 
will  not  intersect  the  requested  fixed  de¬ 
clination  (i<6)  . 


sin6  _ 
sini 


sinu>l  where  6  =  declination 
l  =  inclination 
u  =  argument  of 
latitude 


2  SINALF  The  sin  or  cos  of  a  (right  ascension)  is 

3  ALPHA  greater  than  one.  Check  calculations  and/or 

4  COSALF  input  data. 
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5  BRANGE 

7  PTSEL 


8  BELDV 


The  denominator  1  +  ecos  (u-tu)  used  in  calculating 
p  is  0. 

Due  to  an  inconsistency  in  the  data  the  cosT  >  1 
where 

cosr  =  cosOccosScosa  cosS  +sino.cos5sina.  cos&  + 
sin&sinb  r  r  r  r 

r 

r  =  angle  between  radius  to  satellite  and 
radius  to  radar  site 

a  =  right  ascension 

5  =  declination 

a  =  value  of  right  ascension  of  radar 

r 

6  =  value  of  declination  of  radar 

r 

Range  =  0 


5 


III.  SUBROUTINE  DESCRIPTIONS 


FIXLATI 


Function 


To  initialize  for  fixed  latitude  schedule  by  permanently 
calculating  values  for  u,  cos u,  and  sinu  where  U  is  the  fixed 
argument  of  the  latitude . 


Calling  Sequence 

RJP  FIXLATI 
Error  return 
Normal  return 


Input 


Inclination,  £,  and  declination,  6. 


Output 

Fixed  argument  of  latitude,  u. 

Subroutines  Used 

M0D2PI,  FLTPT  (Univac  package),  COSALF,  SINALF,  PTSEL 
Storage  Areas  Read 

DELTB ,  IISIN,  IICOS,  RAM,  AA,  EE,  ZOMEGA 


Storage  Areas  Written 

DELTSIN,  LLSIN,  LLCOS,  LL1C0S,  LL2C0S,  DELTCOS,  RAMSIN, 
RAMCOS,  ALPH1SIN,  ALPH1C0S ,  ALPH2SIN,  ALPHA2C0S,  DELT1C0S , 
DELT2C0S,  DELT1SIN ,  DELT2SIN,  NUMPT 
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Error  Conditions 


1 .  If  6  =  90°  ,  or  270°  or  *1  =  0°  or  180°  control  is 
transferred  to  the  error  return  with  the  A-register 
equal  to  0 . 

2.  If  LLSIN (=DELTSIN/IISIN)  is  greater  than  1,  an 

error  return  results  and  a  1  is  left  in  the  A-register. 

3 .  Those  supplied  by  subroutines  . 
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FIXLAT 


Function 


To  calculate  values  of  right  ascension  and  range  for 
new  values  of  argument  of  perigee  and  longitude  of  ascending 
node . 


Calling  Sequence 


RJP  FIXLAT 
Error  return 
Normal  return 


Input 

Argument  of  perigee,  u>,  and  longitude  of  ascending  node,  fi. 
Output 

Right  ascension,  a,  declination,  6,  radius,  p. 

Subroutines  Used 

ALPHA,  COSALF,  RANGE,  FLTPT 

Storage  Areas  Read 

LL,  LLSIN,  LLCOS ,  DELTB,  IICOS,  DELTCOS,  AA,  EE 

Storage  Areas  Written 

RAMCOS,  RAMS IN,  ALPKB,  ALPHCOS,  LAMDB 

Error  Conditions 

Those  supplied  by  subroutines . 
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FIXRATI 


Function 


To  initialize  for  fixed  rate  schedule  by  calculating 
initial  arguments  of  latitude  and  times  of  calculations 
for  first  two  time  points. 


Calling  Sequence 

RJP  FIXRATI 
Error  return 
Normal  return 


Input 


Period 


1 


j.  du 
dt 


Output 

Argument  of  latitude,  u ,  and  time  factor  of  first  two  points. 


Storage  Areas  Read 

TIME10,  TIME1 ,  KK,  DOMEGA,  RAM,  SOMEGA,  IISIN,  IICOS,  LL1 


Storage  Areas  Written 

DLLB,  LL,  LL1LAST,  LL2LAST,  TIME1LAST,  TIME2LAST,  LLSIN , 
LLCOS ,  DELTSIN,  DELTCOS,  RAMCOS,  RAMSIN,  DELT1SIN , 
DELT2SIN,  DELT1C0S ,  DELT2C0S ,  ALPHA1C0S,  ALPH1SIN, 
ALPH2C0S ,  ALPH2SIN,  NUMPT,  BSELSW 


Error  Conditions 

Those  supplied  by  subroutines. 
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FIXRATE 


Function 


To  calculate  values  of  right  ascension,  a,  radius,  p, 
and  declination,  6,  from  new  values  of  argument  of  perigee, 
u),  and  right  ascension  of  ascending  node,  Q. 


Calling  Sequence 

RJP  FIXRATE 
Error  return 
Normal  return 


Input 


Time  value,  right  ascension  of  ascending  node,  Q,  and 
argument  of  perigee,  uu. 


Output 


Right  ascension,  a,  declination,  5,  radius,  p. 


Subroutines  Used 

MOD 2 PI ,  ALPHB ,  COSALF,  RANGE,  FLTPT 


Storage  Areas  Read 

DLLB,  IISIN ,  IICOS,  LL1,  STIME,  BSELSW,  AA,  EE, 
LL1LAST,  LL2LAST,  TIME1LAST,  TIME2LAST,  ELEV 


Storage  Areas  Written 

LL,  DLLB,  LL2LAST,  LL1LAST ,  TIME2LAST ,  TIME1LAST,  LLSIN , 
LLCOS ,  DELTSIN,  DELTCOS ,  DELTB ,  RAMSIN,  RAMCOS ,  ALPHB, 
ALPHCOS ,  LAMDB 


Error  Conditions 

Those  supplied  by  subroutines. 
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FDCRAI 


Function 


To  initialize  for  fixed  right  ascension  schedule  by 
determining  the  proper  quadrant  to  be  used  for  latitude  and 
declination  calculations. 


Calling  Sequence 


RJP  FIXRAI 
Error  return 
Normal  return 


Input 


Right  ascension  of  ascending  node,  0,  argument  of 
perigee,  uu ,  right  ascension,  a. 


Output 

Proper  quadrant  for  latitude  calculator  (BSELSW) . 


Subroutines  Used 

M0D2PI,  LAT1 ,  LAT2,  FLTPT 


Storage  Areas  Read 

ALPHB,  IIS IN,  IICOS 


Storage  Areas  Written 

RAMSIN,  RAMCOS,  ALPHAS W,  ALPHSIN,  ALPHCOS ,  ALPHTAN,  LL, 
LLSIN,  DELTSIN,  DELTCOS,  DELT1C0S ,  DELT1SIN,  DELT2SIN, 
DELT2C0S,  DELT3C0S,  DELT3SIN,  DELT4SIN,  DELT4C0S ,  ALPH1SIN, 
ALPH2SIN,  ALPH3SIN,  ALPH4SIN,  ALPH1C0S,  ALPH2C0S ,  ALPH3C0S , 
ALPH4C0S ,  BSELSW 


Error  Conditions 

Those  supplied  by  subroutines . 
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FIXRA 


Function 


To  calculate  new  values  of  declination  and  radius  from 
current  values  of  argument  of  perigee,  right  ascension  of 
ascending  node,  and  time. 


Calling  Sequence 

RJP  FIXRA 
Error  return 
Normal  return 


Input 

Right  ascension  of  ascending  node,  fi,  argument  of 
perigee,  uu. 

Output 

Right  ascension,  a,  declination,  5,  radius,  p. 

Subroutines  Used 

LAT1 ,  LAT2 ,  RANGE,  FLTPT 

Storage  Areas  Read 

ALPHB,  IISIN ,  ALPHTAN,  IICOS,  AA,  EE,  BSELSW,  ALPHASW 
Storage  Areas  Written 

RAMSIN,  RAMCOS,  LL,  LLSIN ,  DELTSIN,  DELTB ,  LAMDB 

Error  Conditions 

Those  supplied  by  subroutines. 
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FIXLONGI 


Function 


To  initialize  fixed  longitude  schedule  by  determining  the 
proper  quadrant  to  be  used  in  calculating  latitude  and  decli¬ 
nation. 


Calling  Sequence 

RJP  FIXLONGI 
Error  return 
Normal  return 


Input 

Longitude  to  be  tracked. 

Output 

Right  ascension,  a. 

Subroutines  Used 

ALPHAG,  MOD 2 PI,  FIXRAI ,  FLTPT 

Storage  Areas  Read 

BELC1,  BELC2 ,  BELC3 ,  BELC4,  TIME,  LAMDB 

Storage  Areas  Written 

ALPHG ,  ALPHB,  those  in  FIXRAI 

Error  Conditions 

Those  supplied  by  subroutines. 
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FIXLONG 


Function 


To  calculate  new  values  for  right  ascension,  radius,  and 
declination  for  current  values  of  argument  of  perigee,  right 
ascension  of  ascending  node,  and  time. 


Calling  Sequence 

RJP  FIXLONG 
Error  return 
Normal  return 


Input 

Argument  of  perigee,  ui,  right  ascension  of  ascending 
node ,  0 . 

Output 

Right  ascension,  a,  declination,  8,  radius,  p. 

Subroutines  Used 

MOD 2 PI ,  FIXRA ,  FLTPT 

Storage  Areas  Read 

BELC1 ,  BELC2,  BELC3 ,  BELC4,  LAMDB 

Storage  Areas  Written 

ALPHG ,  ALPHB,  ALPHSIN,  ALPHCOS,  ALPHTAN,  those  written 
by  FIXRA 

Error  Conditions 

Those  supplied  by  subroutines. 
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DATAIN 


Function 


To  make  possible  the  input  of  several  parameters  via  the 
on-line  typewriter. 


Calling  Sequence 

RJP  DATAIN 


Input 


See  input  description  of  program  specifications. 


Output 

Converted  internal  representations  of  the  input  para¬ 
meters. 


Subroutines  Used 

INTERCOM 


Storage  Areas  Read 

DAY,  YEARMONTH 

Storage  Areas  Written 

A,  E,  I,  SRAM,  DRAM,  SOMEGA,  D OMEGA ,  VYEAR,  VMONTH ,  VDAY, 
DEC,  LONG,  KK,  SCHSW 

Method 

By  use  of  INTERCOM. 

Error  Conditions 

None . 


IS 


PTSEL 


Function 


To  determine  T,  the  angle  between  satellite  direction  and 
radar  direction  (both  from  earth  center),  evaluate: 

cosr  =  cosacos&cosa  cos6  +  sinacos&sina  cos&  +  sin&sin6 

r  r  r  r 

Calling  Sequence 

RJP  PTSEL 
Error  return 

Normal  return  (A  has  code  1  to  4) 


Input 


None. 


Output 


cosr,  a  floating-point  number  stored  in 


GAM1C0S  with  1 
GAM2C0S  with  2 
GAM3C0S  with  3 
GAM4C0S  with  4 


Subroutines  Used 

ALPHAG,  FLTPT 


Storage  Areas  Read 


in  A  register,  or 
in  A  register,  or 
in  A  register,  or 
in  A  register 


ALPH1SIN 
ALPH2SIN 
ALPH3SIN 
ALPH4SIN 
LL,  LAMDR 


ALPH1C0S 

ALPH2C0S 

ALPH3C0S 

ALPH4C0S 

NUMPT 


DELT1SIN  DELT1C0S 
DELT2SIN  DELT2C0S 
DELT3SIN  DELT3C0S 
DELT4SIN  DELT4C0S 


Error  Conditions 


1.  CosF>l  control  transferred  to  error  return  with  a 
7  in  the  A- register. 

2.  Those  supplied  by  subroutines. 
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BRANGE 


Function 

To  evaluate:  p  =  a ^  \ - -  |u-w|^2tt 

l+ecos(u-w)  * 

Calling  Sequence 

RJP  BRANGE 
Error  return 

Normal  return,  (p  has  exponent  in  A,  fraction  in  Q) 


Input 


None. 


Output 

Floating-point  number,  p,  stored  in  RANGEB. 


Subroutines  Used 

M0D2PI ,  FLTPT 


Storage  Areas  Read 

AA 

EE 

LL 

OMEGA 


Storage  Areas  Written 

RANGEB 


Error  Conditions 

1  +  e  cos(u-uj)  =  0  action  taken  through  the  error  exit. 

A  5  is  left  in  the  A- register. 
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LATI 


Function 


To  evaluate :  u  =  tan-1  cosQ tana  -sin! _ ,  u^2n 

tanacos is inQ+cos icosQ 

Calling  Sequence 

RJP  LATI 
Error  return 

Normal  return  (u  has  exponent  in  A,  fraction  in  Q) 


Input 

cosQ ,  sinQ  ,  tarn ,  cos i 
Output 

Floating-point  number  u  stored  in  LL  (u^2n) . 

Subroutines  Used 

FLTPT 

Storage  Ax-'eas  Read 

RAMCOS,  RAMS  IN,  ALPHTAN ,  IICOS 

Storage  Areas  Written 

LL 

Error  Conditions 

None . 
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LAT2 


Function 


To  evaluate:  u  =  tan-1  (  cosfl  )  ,  u^2tt 

cost  sinQ 

Calling  Sequence 

RJP  LAT2 
Error  return 

Normal  return  (u  has  exponent  in  A,  fraction  in  Q) 


Input 

None. 

Output 

Floating-point  number  u  stored  in  LL  (u^2n) 

Subroutines  Used 

FLTPT ,  MOD 2 PI 

Storage  Areas  Read 

RAMCOS,  IICOS,  RAMSIN 

Storage  Areas  Written 

LL  (with  floating-point  number) 

Method 

.  -i  K2 

u  =  sin  — 

V  1  +  \C 

where  K  =  tan-1  u 
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Error  Conditions 


None . 


DECLIN  or  SINDECLIN 
(depending  upon  the  call) 


Function 

To  evaluate:  6  =  sin-1  (sinisinu) 

or  sin6  =  (sinisinu) 


Calling  Sequence 


RJP  DECLIN  (SINDECLIN) 

Error  return 

Normal  return  (6  or  sin6  has  exponent  in  A,  fraction  in  Q) 


Input 


sini ,  sinu,  (both  floating-point  numbers). 


Output 

6  or  sin6 ;  floating-point  numbers  stored  in  DELTA  or 
DELTSIN,  respectively. 


Subroutines  Used 


FLTPT 


Storage  Areas  Read 


IISIN,  LLSIN 


Storage  Areas  Written 

DELTB  or  DELTSIN 


Error  Conditions 


None . 


21 


COSALF 


Function 

To  evaluate  cosa  =  cosQcosu -costsinQsinu ,  lcosa|^l 

cosS 


Calling  Sequence 

RJP  COSALF 
Error  return 

Normal  return  (cosa  has  exponent  in  A,  fraction  in  Q) 


Input 

cosfi,  cosu,  cost,  sinQ ,  sinu,  cos5 
Output 

Floating-point  number  cosa  stored  in  ALPHCOS. 

Subroutines  Used 

FLTPT 


Storage  Areas  Read 

RAMCOS,  LLCOS,  IICOS ,  RAMS IN  ,  LLSIN ,  DELTCOS 


Storage  Areas  Written 

ALPHCOS 


Error  Conditions 


]cosa]>l  action  taken  through  error  exit  with  4  in  the 
A -register. 
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ALPHA  or  SINALF 
(depending  upon  the  call) 


Function 


To  evaluate: 


a  =  sin 


-l 


<? 


inflcosu  +cos£cosflsinu 


cos6 


) 


Calling  Sequence 

RJP  ALPHA  (SINALF) 

Error  return 

Normal  return  (a  or  sina  has  exponent  in  A,  fraction  in  Q) 


Input 


sinO,  cosQ,  sinu,  cdsu,  cost,  cos6 


Output 

Floating-point  number  cl  or  sinoc  in  ALPH  or  ALPHSIN, 
respectively . 


Subroutines  Used 

FLTPT ,  M0D2PI 

Storage  Areas  Read 

RAMSIN,  RAMCOS,  LLSIN,  LLCOS,  IICOS,  DELTCOS 

Storage  Areas  Written 

ALPHB  or  ALPHSIN 
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Error  Conditions 


|sina|>l  action  taken  through  the  error  exit  with  2  in 
the  A-register  if  SINALF  or  B  if  ALPHA. 
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ALPHAGNEW 


Function 


To  determine  a  value  for  the  right  ascension  at 
Greenwich,  . 

Calling  Sequence 

RJP  ALPHAG 
Error  return 
Normal  return 


Input 


None . 


Output 


Floating-point  number  a  with  the  exponent  in  the 
A-register,  also  the  fraction  in  the  Q  register,  and  the 
number  in  ALPHG. 


Subroutines  Used 


FLTPT 


Storage  Areas  Read 

SIDERTIME,  FRAMESIZE,  LAMDR,  RAGREENCON 


Storage  Areas  Written 


ALPHG 
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Method 


aQ  =  (SIDERTIME)  -  +  (FRAMESIZE)  Cl 

where  Cl  is  a  constant  stored  in  RAGREENCON 
^  =  longitude  of  site. 

Error  conditions 


None . 
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M0D2PI 


Function 


To  adjust  the  absolute  value  of  an  angle  so  that  it  falls 
between  0  and  2tt,  i.e.,  [value  of  number  |^2tt  . 


Calling  Sequence 

RJP  M0D2PI 


Input 


Floating-point  number  with  the  exponent  in  the  A-register 
and  the  fraction  in  the  Q  register. 


Output 

Floating-point  number  modulo  2tt  with  the  exponent  in  the 
A-register  and  the  fraction  in  the  Q-register. 


Storage  Areas  Read 

None 


Storage  Areas  Written 

None 


Error  Conditions 


None 
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B CONVERT 


Function 

To  convert  floating-point  input  values  to  correct  units 
compatible  with  the  main  program . 


Calling  Sequence 

RJP  BCONVERT 
Normal  return 


Input 

Values  input  via  subroutine  DATAIN  in  units  of  degrees 
and  portions  of  a  day. 

Output 

Values  in  units  of  seconds  and  radians . 

Subroutines  Used 

FLTPT 

Storage  Areas  Read 

S OMEGA ,  DOMEGA,  SRAM,  DRAM,  DECT,  ALPHB 

Storage  Areas  Written 

Same  as  above . 
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Method 


x  degrees 

,radians^ 

r- - j  =  x  '  radians 

vdegree 

x  days 

(— — "°n— )  =  xT  seconds 
v  day  J 

Error  Conditions 

None . 
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BRESTORE 


Function 

To  restore  input  values  to  original  units  so  that  they 
may  be  typed  out  for  inspection  during  reinitialization. 

Calling  Sequence 

RJP  BRESTORE 
Normal  return 


Input 

Values  in  units  of  seconds  and  radians . 

Output 

Values  in  units  of  days  and  degrees . 
Subroutines  Used 

FLTPT 

Storage  Areas  Read 

SOMEGA,  DOMEGA,  DRAM,  SRAM,  STIME,  DECT,  ALPHB 

Storage  Areas  Written 

Same  as  above . 


Method 


x  radians/ 


radians 

degree 


=  x ' 


degrees 


x  seconds/ 


seconds 

day 


x 1  days 
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Error  Conditions 


None . 


BELDV 


Function 


dv 

To  calculate  the  time  derivative  of  v,  -rr 

’  dt 


Calling  Sequence 

RJP  BELDV 
Error  return 
Normal  return 


Input 


None . 


Output 

dv  du 
dt’  dt 


Storage  Areas  Read 

LL  ZOMEGA 
NN  FACT0R6 
AA  DOMEGA 


Storage  Areas  Written 

W  WSIN 

DV  BELPROD 

DU 


Method 

1 .  v  =  u  -  U) 


2.  dv  =  a2rh/  1-e2 
dt  - 
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Error  Conditions 


Control  will  be  transferred  to  the 
p*  =0  .  The  A-register  will  contain 


error  return  if 
8. 


DRANGE 


Function 

To  calculate  the  time  derivative  of  the  radius,  ^jr,and 
store  it  in  the  common  storage  area . 


Calling  Sequence 

RJP  DRANGE 
Error  return 
Normal  return 


Input 

None . 

Output 

^  stored  in  RADIUSDOT 
dt 

Storage  Areas  Read 

AA,  EE,  FACT0R6 ,  WSIN,  NMCON 


Storage  Areas  Written 

BELPROD,  BELQUOT ,  BELDR,  NMBELDR,  RADIUSDOT 


Method 


2  .  Convert  ^  to 
dt 

in  RADIUSDOT. 


sin  v 

fixed  point  nautical  miles  and  store  it 


Error  Conditions 

None . 
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DELDELTA 


Function 


To  calculate  the  fixed  point  value  of  the  time  derivative 
of  the  declination,  dS_,  and  store  it  in  the  common  storage  area. 

dt 


Calling  Sequence 

RJP  DELDELTA 
Error  return 
Normal  return 


Input 


None . 


Output 


d5  stored  in  DECDOT 
dt 


Storage  Areas  Read 

IISIN ,  LLCOS ,  DELTCOS,  DU 


Storage  Areas  Written 

BELPROD,  BELQUOT ,  DDELT ,  DECDOT 


Method 

1*  H  =  ^C(sint)  (cosu)/cos5) 

j  o 

2 .  Convert  ~rr  to  fixed  point  and  store  in  DECDOT 


Error  Conditions 


None . 
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DALPHA 


Function 

To  calculate  the  fixed  point  value  ^-(cosS)  and  store 
it  in  the  common  storage  area . 


Calling  Sequence 

RJP  DALPHA 
Error  return 
Normal  return 


Input 


None . 


Output 

^■(cos8)  stored  in  RADOT 

Storage  Areas  Read 

DELTCOS,  IICOS,  DU,  DRAM 

Storage  Areas  Written 

BELPROD,  BELQUOT ,  DELALPH,  RADOT 

Method 

dfl  _  dfl  cost  .  du 
*  dt  dt  cos'  5  dt 

2 .  Convert  da  (cos6)  to  fixed  point  and  store  it  in  RADOT 
dt 

Error  Conditions 

None . 
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IV.  PROGRAM  VARIABLE  LABELS 


Input  Parameters 


Computer 

Notation  Representation  Description  _ Unit 


a 

AA 

semi -major  axis 

degrees 

e 

EE 

eccentricity 

degrees 

i 

II 

inclination 
(±  0°  ,  180°) 

degrees 

ub  (omega) 

S  OMEGA 

argument  of  perigee 
at  epoch 

degrees 

iL  (omegadot) 

DOMEGA 

time  derivative  of 
argument  of  perigee 

degree/day 

00  (dragon) 

SRAM 

right  ascension  of 
ascending  node  at 
epoch 

degrees 

6  (dragondot) 

DRAM 

time  derivative  of 

n 

degree/day 

epoch:  year 

WEAR 

year  of  validity 

year 

month 

VMONTH 

month  of  validity 

numeric  months 
(1  to  12) 

day 

VDAY 

day  and  portion  of 
day  of  validity 

day  and  decimal 

portion 

(0  to  31.999) 

schedule 

SCHDSW 

switch  to  indicate 
schedule  (0=A ,  1=B, 
2=C ,  3=D) 

ab 

ALPHB 

right  ascension 

degrees 

5 

DELTB 

declination 

degrees 

period 

KK 

(1/du/d  t) 

minutes/degree 

u 

LL1 

1st  argument  of 
latitude 

degrees 

\ 

LONG 

argument  of 
longitude 

degrees 
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Intermediate  Values 


Time  values  (floating-point  unless  indicated  by  ) 


TIME 

present  time  equal 
to  (CELTIME) 

seconds 

TIME1 

initial  time  equal 
to  (CELTIME) 

seconds 

BLASTFLT 

initial  time  equal 
to  (CELTIME) 

days 

TIMETEMP 

present  time  equal 
to  (CELTIME) 

days 

VMONTH* 

month  of  validity 

numeric  months 
(0  to  12) 

WEAR* 

year  of  validity 

VDAY 

day  and  decimal 
portion  of  validity 

day  and  decimal 

portion 

(0  to  31.999) 

BDAY* 

day  number  of  0  day 
of  VMONTH 

days 

BDAY1* 

BDAYNOW* 

day  of  year  relative 
to  validity  (present 
year  -  WEAR) 

365  +  L  (DAY) 

days 

FLTBDAY 

(BDAY) 

days 

FLTNDAY 

(BDAYNOW) 

days 

NTIME1 

(CELTIME)  +  (BDAYNOW) 

days 

NS TIME 

(BDAY)  +  (VDAY) 

days 

FLTDIFF 

(NTIME1)  -  (NSTIME) 

days 
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FLTSECDIFF 

(FLTDIFF) 

CURJULDAY 

current  julian  day 

CURJULDAYF* 

current  julian  day 

TIME1LAST 

last  time  point 

TIME2LAST 

2nd  last  time  point 

TIMEDIFF 

(T)  -  (TLAST) 

Trigonometric  Functions 

sin  l 

IISIN 

cos  t 

IICOS 

sinfi 

RAMSIN 

cosQ 

RAMCOS 

sin& 

DELTSIN 

sm  5 

DELTSIN2 

cos5 

DELTCOS 

sinSi 

cosSi 

DELTSIN  ) 

) 

DELTCOS  ) 

1st  point 

sin6a 

cos6g 

DELT2SIN ) 

) 

DELT2C0S ) 

2nd  point 

sin53 

cos53 

DELT3SIN  ) 

) 

DELT3C0S ) 

3rd  point 

sin64 

cos&4 

DELT4SIN ) 

) 

DELT4C0S ) 

4th  point 

seconds 
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sina 

ALPHSIN 

cosa 

ALPHCOS 

sinax 

ALPKLSIN J 

cosai 

AL PHI COS  ) 

sin02 

ALPH2SIN  ) 

COSOs 

) 

ALPH2C0S  ) 

sinOs 

ALPH3SIN  ) 

COSOg 

) 

ALPH3  COS  ) 

sina4 

ALPH4-SIN  ) 
) 

ALPH4C0S  ) 

cosa4 

tana 

ALPHTAN 

sinu 

IISIN 

sin2u 

IISIN2 

cos  u 

IICOS 

siniU 

ms  IN  ) 

) 

II1C0S  ) 

COSiU 

sinsU 

II2SIN  ) 

) 

II2C0S  ) 

COSsU 

sina 

r 

ALPHRSIN 

cosa 

r 

ALPHRCOS 

sin6 

r 

DELTRSIN 

cos6 

r 

DELTRCOS 

SINCHI 

COSCHI 

1st  point 


2nd  point 


3rd  point 


M-th  point 


1st  point 


2nd  point 


sinx  =  sini  (cosa^  -  0) 
cosX  =  J  1  -  sinX^ 


U-0 


sinv 

WSIN 

sin  (u  -  uu) 

cosv 

wcos 

cos  (u  -  oj) 

sinE 

EES  IN 

1  -  e  cosE  sinu) 

J  1-e* 

cosE 

EEC  OS 

cosv  +  e 

1  +  e  cosv 

sini 

IISINPOS 

cosr 

GAMCOS 

cos  $  between  satellite  ■ 
tion  and  radar  direction 

cosr\ 

GAM1C0S 

1st  point 

cosr2 

GAM2C0S 

2nd  point 

cosr3 

GAM3C0S 

3rd  point 

cosr4 

GAM4C0S 

4th  point 

Switches  and  Indicators 


Computer 

Notation  Representation 
IISWITCH* 


UND EARTHS W 


NUMPT 


BSELSW 


Description 


Values 

0  or  1 


is  belt  forward  or 
retrograde 
0  -»  forward 
1  -»  retrograde 


was  last  point  accept-  0  or  1 
able  to  radar? 

0  -*  yes ,  1  "♦  no 

indicates  to  point  2  to  4 

selector  routine  how 
many  points  are  being 
compared 

point  selector  switch  1  to  4 
contains  1 ,  2 ,  3 ,  or  4 


ALPHASW* 

indicates  whether  long 
or  short  formula  to 
calculate  U 

NCODE* 

indicates  whether  in  0  or  1 

initialization  (or 
reinitialization)  or 
working  section 

0  init  1  working 

LATEM* 

1  if  u  =  90;  0  or  1 

0  if  u  ^  90 

Computed  Values 


u  LL 

argument  of  latitude  0  to  2tt 

Us  LL2 

2nd  argument  of  0  to  2tt 

latitude  point 

dub/dt  DLLB 

time  derivative  of  0  to  2tt 

argument  of  latitude 

LL1LAST 

last  argument  of  0  to  2tt 

latitude  point 

calculated 

LL2LAST 

2nd  argument  of  0  to  2tt 

latitude  point 

calculated 

aG  ALPHG 

right  ascension  of  0  to  2tt 

Greenwich 

§R  DELTR 

current  declination  0  to  2tt 

value 

aR  ALPHR 

current  right  0  to  2tt 

ascension  value 

(l)  ZOMEGA 

current  argument 
of  perigee 

n  SRAM 

current  value  of  right 
ascension  of  ascending 
node 
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BELM 

MLLAST 

NN 

DV 

DU 

DDELT 

K 

BELDR 

DELALPH 

BELSQRT 

NUMRAN 

RAMLAST 

MEGALAST 

PTTEM 


E  -  e  sinE  =  M 


last  value  of  M 


(DV)  +  (DOMEGA) 


sintcosu 

cos6 


du  =  d6 


lAs 

3pa 


(1-e2) 


aen 

sinv  =  ^ 

dfl  +  cosL  d u  =  da 

cos^o 

a(l-e2) 

last  value  of  Q 
last  value  of  u) 

2tt  (1.002  73  791)  T 
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C0SCHI2 

cos2  (at  -  Cl) 

CHI 

ab  -  n 

ALPHB 

right  ascension 
(revolutions) 

DELTBL 

declination 

(revolutions) 

GAM1TEMP 

2  +  cosTj 

GAM2TEMP 

2  +  cosTg 

G TEMPI 

GTEMP2 

modified  floating-point 
number 

IIDELTDIFF 

declination  -  inclination 

FACT0R1 

Ag  /3p2  (1-3/2  sin2  i  ) 

FACTOR2 

Ag/Sp3 

FACTOR3 

As 

FACT0R4 

1-3/2  si.r?t 

FACTORS 

3/2  sin2  i 

FACTOR6 

/1-e2 

FAC TORI D 

1  -  (FAC TORI 2) 

FACTOR11 

/GM/K 

EE2 

2 

e 

EE2ML 

1-e 

KKNCALC 

a (FACTORIO) 

FAC TORI 2 

(FAC  TORI)  (/1-e2) 

FRAMECON 

(FRAMESIZE)  (7.292115847xl0-5) 
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RAGREENCON 

FRAMEFLTPT 

SIDERFLTPT 

SIDERLAMDR 

KRECIP 

GMK 

NMBELDR 

PP 

Cartesian  coordinates 

TXX 

TXX1 

YY 

Constants 

PTCON 

JULYDAY064* 

ANGCONV 

TCONV 

FLTONE 


7 . 292115847xl0-6 

(FRAMES IZE)  in 
floating  point 

(SIDERTIME)  in 
floating  point 

(SIDERTIME)  -  (LAMDR) 

1/  (KKNCALC) 

GM/K 

range  in  n.m. 

[a  (1-e2)  ]2 

p  (cos6)  (cosa) 
p  (cos6) 

p(cos6)  (sina) 

1.0027379 

julian  day  Jan  0  1964 
(2,438,394.5) 

.0174533 

86,400 

1 


radians/degree 

seconds/day 
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BEL2PI 

2tt 

BEL2PII 

2n  +  1  bit 

FLTTWO 

2 

FLTFOUR 

4 

CON60 

60 

HFPI 

tt/2 

BONE* 

1 

GM 

2.51744X10"8 

As 

1 . 62B5xlO~3 

PI 

n 

THFPI 

3tt/2 

BELTEM 

5000 

\r  LAMDR 

longitude  of  site 
(LONGITUDE) 

GLR 

latitude  of  site 
(GEOCENLAT) 

DYPRHO 

table  of  days  per 
month 

DYPRYR 

table  of  days  per 
year 

Equivalent  Values 


RR 

RANGEB 

ALPH 

ALPHB 

FLTTWO 

FLTWO 

WONE 

FLTONE 
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BANGLEX 

THFPI 

BANGLE 

HFPI 

BEL2PI 

TTWPI 

DELTB 

DECT 

LLL 

LZERO 

LAMDB 

LONG 

TLAST 

TIME1LAST 

DELT 

DECT 

BELPIXX 

PI 

Temporary  Location 

TIMTP 

BELDIFF 

BELCOS 

BELPROD 

BELSUM 

BELQUOT 

BE LS TORI 

BELSTOR2 

MODNUM 

LL4 


ALPHDIFF 


V.  FLOW  CHARTS 


Flow 
appear  on 


charts  for  the  subroutines  described  in  Section  III 
the  following  pages. 
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BE.LT  COO 
$W«et  l  o(  B 
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^BCOUVJERTN 


/CflmKft  pQfQmrtr 

Vlo  units  correct  > 
Vfrf  internet  f 

Calculate 

Time  Up4it e  Factor 
Use  base  time 


o\  Jan  0,  OSC 
Present  time 


KLTC6U 
Sheet  Z  of  5 
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51 


tirox  return 
leave  code 
In  A 
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BEXTCOtt 
sKeet  5  5 


53 


Initial 


FIVLATI 
Sk eet  {  of  Z 
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55 


FIXWT 


56 


FIKRMI 
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&OtU  unJftrikSM 
1*4  off  trtliiflflj 
M t  ppsitivt 
UndeactHw  L*  set 
nfjattVf  wkfnflcv 
bcc*m*$  relive 
and  99ft  pftSiUve 
onl^f  Oft*f 
anothfv  poStUtf 
•lev  Is 
ercoante/ed 


(undeaftVisw* 

@ 


Set 

\  Oo 

Sw  - 

f 

du  du. 

Tt*1t 

FXRME 
SWeet  i  of  Z 
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FLXRJlTE 
SKeet  Z  o\  Z 
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Initial  «nt<y 


FIKBM 
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Initial  errtry 


Given: 
Values  of  Cfb> 

smi, tout ,  cost, 
a,«>  frlpks*) 


FLT  PT 


Sinlt 


:l 


fltpt 


cos-n. 


I  >  90 

Ves 

Calculate 


II  -30° 

Xl  -  270° 
ismtek  « 1 


Calculate 

\  ^ 

A  ♦  3o® 

} 

Av  VO* 

ISvuUch  •  0 

^O.  A 

-  90  ^ 

06  . 

r»  A  V7  A  1 

I 

a  «  xi  -  z  CO  y- 

'fes 

v — n« 

Set 

Set 

u*  30 

U'  270 

iBO-l 

6bs  U10O 

Oo 


y^7  ~  si*nc>y 


Oo 


I  Ve$ 

|  Ves 

Set 

Set 

u«  90 

u*  21.0 

6b-i 

^-L 

/V\ 

Sheet 

VV 

\U 

fixca, 

sheet  1  of  Z 
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62 


Ef  rof 

return. 


Error 

return 


FIVCL0U6I 
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fixed  ttlatj 

in  core  r*w  value 
04  T  time,  tc{ 


KLPUkC, 

calculate 

new  Q- 


Calculate 
new  ae 

°fc=GrC.  + 


Error 

return 


BtoS 


Calculate 
cosa6 


will  Ita>urt)l 
|  Mo 


ves 


Calculate 


Set 

AlPWAVK.t 
a  calc) 


Set 

AlPHA$W*0 

(lo«^  u  calc) 


FItUOViG 
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Giwew 

svna^tta^n^co^ 

rr^uifed 
fcnfljCOSOjVn&jWrt, 

I,  w>  Afta*d  WuwPT 
sicced  in  cott 
(UOUPT  '  2  of  4) 


Initialise 
Set 

unc^cos^untyo^ 

as  current 
*na  cosa  $m&<#s£ 
and  cos  as 
location  tp  state 
cufffni  cost 


ALPHAG 

Calculate 

and  leave 

A,  ar 


U0D7PI ' 


Check  i\ 
Jarl  >  21T 

iUvocoffecti 


&SIU 


Calculate 
sin  dr 


BCOS 


Calculate 
cosar 

it 


U0D2PI 


CheclC  14 

,IM  >  2lr 

ki4so  conett/ 

ftSIN 

Calculate 

Sift  5f 

be  OS 

Calculate 
cos  &r 

Calaiafe 

COST  vuhetre 
^citacosScosarCosSr 
fur»acesfeinffrw^ 
+sin&sin8r 


Stofe 
cosT  in 
cosr^  or  eosrz 

or  COS  Ta  Of  tost* 


f  has  lost  co\r  7\ 
(been  calculated  V 
V(iyjurT;uo4H<y 


uo 


ktncttcftQ^  sir,  0^ 
cos&nond  $in%nfjual 

tacu»ff*t  vilufsand 
cosrnas  location  tc 
&Utc  (osT 


r  A  J  Return 

'Ss*-fto  colcuUte 
nr  ft 
cosr 


PTSEL 
Sheet  l  o{ 
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t>T$Et_ 

Viert  2  of  2 
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r  *  i.+e  cos(u-w) 
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Clear 
vuorK  area. 


Multiply 
cos l  cosJV 


Store 
product  Ik 
"STOQEi* 


Multiply 
tana  cost 


Multiply 
(tana  co$i)sinQ 


Store 
t  n 

’STORLZ” 


Add 

"store  1'  ♦‘Store  2* 


-i  /  cosxi  tanq-smn  > 
a  c  an  l  tana  cost  slaxit  cost  cosn 


lati 

SWeet  l  of  Z 
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LAJI 

SW«rt  Z  of  Z 


U.  a  ift*i 


COS-H.  \ 

cost  SinflJ 


LVVZ 


70 


&  -  si  n'*  (si.ru  sin  u) 


bECCIO 

SINbtClIO 


71 


co*>a  =. 


cos^l  eo<>ti~cost  sirx.fl  sinu 
cosS 


COSM.F 


72 


Sheet  1  o(  Z 


73 


M.PU  A 

SWect  Z  of  Z 


74 


•  <,icUYU«e  -  Kr  ¥  {famesize  (Cl)  M^rrc 


M-PU^GOEVU. 


75 


Entfy 


U0D2PI 


76 


BEL  TP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CARDS 


LI  ID 

LABEL 

TA  STATEMENT 

00000 

BELTP 

PROG 

RAM  P0NT0N»7/ 1/65 

00001 

CALL 

FLTPT 

00002 

BEL  TP 

U-TAG  BELTC2*BELTC0N 

00003 

FD 

1  • BELTP 

00004 

BELTCON 

ENTRY 

00005 

STR 

B4*L ( BEL  TCB4 ) 

00006 

STR 

B5»L 1 BELTCB51 

00007 

STR 

B6*L ( BELTCB6) 

00010 

STR 

87*L(BELTC67) 

00011 

STR 

B  1  «L  «  BEL  TCB 1 ) 

00012 

CL 

W(ELEV) 

00013 

CL 

W ( UNDE ART  HSW ) 

00014 

CL 

H(NCODE) 

00015 

ENT 

A*  L ( D A Y ) 

00016 

LSH 

A*3 

00017 

ADD 

A*  W( JULOA Y064 ) 

00020 

STR 

A*W(CURJULDAYF ) 

00021 

ENT 

84*3 

00022 

ENT 

B5*CURJULDAYF 

00023 

ENT 

96*CUR JULDAY 

00024 

ENT 

B  7  •  10 

00025 

RJP 

FL  TPT 

00026 

ENT 

B4  *0 

00027 

ENT 

84*280 

000  30 

ENT 

05*CEL  TIME 

00031 

ENT 

86*T1METEMP 

00032 

ENT 

B  7  •  1 0 

00033 

RJP 

FLTPT 

00034 

ENT 

B4 • T I  ME  TE  MP 

00035 

ENT 

B5*TC0NV 

000  36 

ENT 

B6*TI ME 

00037 

ENT 

87*02 

00040 

RJP 

FL  TPT 

0004  1 

ENT 

0*  36610 

00042 

STR 

0*U( BEL  TCB7X) 

00043 

ENT 

0*61000 

00044 

STR 

0*  U ( BE  L rcswi 

00045 

RJP 

BRESTORE 

00046 

RJP 

DATAI N 

0004  7 

RJP 

BCONVERT 

00050 

ENT 

A*W( VMONTHJ 

00051 

SUB 

A*  1 

00052 

ENT 

B  7  *A 

00053 

ENT 

A*  W ( VYEAR ) 

00054 

SFL 

CL  *X  7  7  774 

C0055 

ENT 

0*  A 

00056 

ENT 

A*W( DYPRM0+B7 ) 

00057 

ADD 

0*  0*07ERO 

00060 

JP 

3 

0006  1 

COM 

A*  59D*YM0RE 

00062 

ADD 

A*  1 

00063 

STR 

A*W(BDAY) 

00064 

ENT 

A* U( YE  ARMONTM ) 

LOC 

F  J KB 

Y 

NOTES 

00000 

00644 

00002 

00001 

0712? 

13125 

00002 

6  1000 

00000 

FIRST 

00003 

164  10 

30634 

00004 

16510 

00635 

00005 

166  10 

00636 

00006 

167  10 

00637 

00007 

161  10 

00633 

00010 

16030 

63054 

00011 

16030 

05677 

INITIALIZE 

00012 

16030 

05703 

00013 

1  1010 

63150 

00014 

06000 

00003 

00015 

20030 

06125 

00016 

15030 

05516 

00017 

12400 

03003 

00020 

12500 

05516 

00021 

12600 

35514 

00022 

12700 

00010 

00023 

65000 

06266 

00024 

12400 

00000 

CONVERT  TO  FLTPT 

00025 

12400 

00034 

00026 

12500 

63133 

00027 

12600 

05472 

00030 

12700 

00010 

00031 

65000 

06266 

00032 

12400 

05472 

00033 

12500 

06130 

00034 

12600 

05466 

00035 

12700 

00002 

00036 

65000 

06266 

00037 

10000 

366  10 

00040 

14020 

00640 

00041 

10000 

61000 

00042 

14020 

00766 

00043 

65000 

05355 

00044 

65000 

01255 

00045 

65000 

05306 

00046 

11030 

05446 

EPOCH  MONTH 

00047 

21000 

0000  1 

00050 

12770 

00000 

00051 

11030 

05444 

00052 

52040 

77774 

00053 

10070 

00000 

00054 

11037 

06177 

00055 

26400 

00000 

00056 

61000 

0006  1 

00057 

04700 

00073 

00060 

20000 

00001 

00061 

15030 

05474 

00062 

11020 

63147 

BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*// 1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00065 

SUB 

A*  19570 

00063 

21000 

03645 

00066 

ENT 

B7  *  A 

00064 

12770 

00000 

• 

00067 

ENT 

A*  W( 0YPRYR+B7 ) 

00065 

1  1037 

06213 

• 

00070 

AOD 

A*L(DAY) 

00066 

20010 

63150 

• 

00071 

STR 

A*  W( BDA YNOW 1 

00067 

15030 

05476 

• 

00072 

ENT 

A*  W( VYEAR ) 

00070 

11030 

05444 

• 

00073 

SUB 

A*  19570 

00071 

21000 

03645 

00074 

ENT 

B  7  •  A 

00072 

12770 

00000 

00075 

ENT 

A*W(DYPRYR+B7 ) 

00073 

11037 

06213 

• 

00076 

ADO 

A*  W( BDAY ) 

00074 

20030 

05474 

• 

00077 

STR 

A*  W ( BO AY  1  ) 

00075 

15030 

06232 

• 

00  100 

ENT 

B4  *0 

00076 

12400 

00000 

CONVERT  8DAY  TO  FLTPT 

# 

00101 

ENT 

B5*BDA Y 1 

00077 

12500 

06232 

• 

00102 

ENT 

B6*FLTBDAY 

00100 

12600 

05500 

00103 

ENT 

67*10 

00101 

12700 

00010 

• 

00104 

RJP 

EL  TPT 

00102 

65000 

06266 

• 

00105 

ENT 

84  *FLTBOA Y 

00103 

12400 

05500 

AOD  0 AYS  TO  CALCULATED  EPOCH  D 
AYS 

• 

00106 

ENT 

B5*V0AY 

00104 

12500 

05450 

• 

00107 

ENT 

B6*NST I  ME 

00105 

12600 

05506 

001  10 

ENT 

B7  *00 

00106 

12700 

00000 

001  11 

RJP 

FL  TPT 

00107 

65000 

06266 

• 

00112 

ENT 

B4  *0 

001  10 

12400 

00000 

• 

00113 

ENT 

B5  *80 AYNOW 

001  1 1 

12500 

05476 

• 

001  14 

ENT 

B6*FLTN0AY 

00112 

12600 

05502 

00115 

ENT 

B  7  •  1 0 

00113 

12700 

00010 

00116 

RJP 

FL  TP T 

00114 

65000 

06266 

• 

00117 

ENT 

B4  *FL  TNOA Y 

00115 

12400 

05502 

• 

00120 

ENT 

B5 • T I  ME  TE  MP 

001  16 

12500 

05472 

• 

00121 

ENT 

B6*NT I  ME  1 

00117 

12600 

05504 

00122 

ENT 

B7  *00 

00  120 

12700 

00000 

• 

00123 

RJP 

FL  TPT 

00121 

65000 

06266 

• 

00124 

ENT 

B4  *NT 1  ME l 

00122 

12400 

05504 

• 

00125 

ENT 

B5  *NS  T l ME 

00123 

12500 

05506 

00126 

ENT 

B6*FLT0 IFF 

00124 

12600 

05512 

00127 

ENT 

B  7  *0  l 

00125 

12700 

00001 

00130 

RJP 

FL  TPT 

00126 

65000 

06266 

00131 

ENT 

B4  *FL  TOI F  F 

00127 

12400 

05512 

00132 

ENT 

B5*TC0NV 

00130 

12500 

06130 

00133 

ENT 

B6*FL  T SECDI  FF 

00131 

12600 

05510 

00134 

ENT 

B  7  *02 

00132 

12700 

00002 

00135 

RJP 

FL  TPT 

00133 

65000 

06266 

00136 

ENT 

84*200 

00134 

12400 

00024 

00137 

ENT 

B5  *LONG I T  UOE 

00135 

12500 

63320 

00140 

ENT 

B6*L AMOR 

00136 

12600 

05765 

00141 

ENT 

B7  •  1 0 

00137 

12700 

00010 

00142 

RJP 

FL  TPT 

00  140 

65000 

06266 

00143 

ENT 

B5*GE0CENLAT 

0014  1 

12500 

63322 

00144 

ENT 

B6«GLR 

00142 

12600 

06  16  1 

00145 

RJP 

FL  TPT 

00143 

65000 

06266 

00146 

ENT 

B4 

00144 

12400 

00000 

00147 

ENT 

B4*LAM0R 

00145 

12400 

05765 

00150 

ENT 

B5*ANGC0NV 

00146 

12500 

06126 

BEL  TP 


SPURT  OUTPUT  SO.  210 
PONTON*  7 / 1 /65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

001  SI 

ENT 

86  »L AMOR 

00147 

12600 

05765 

00  152 

ENT 

B7  *02 

00150 

12700 

00002 

00  1  S3 

RJP 

FLTPT 

00151 

65000 

06266 

00  1  54 

ENT 

B4*GLR 

00152 

12400 

06161 

001SS 

ENT 

B6*GLR 

00153 

12600 

06161 

00156 

RJP 

FL  TPT 

00154 

65000 

06266 

001S7 

ENT 

B4-EE 

00155 

12400 

05430 

CALCULATE  ESS2 

00160 

ENT 

BS«EE 

00156 

12500 

05430 

X 

00161 

ENT 

B6  »BEL  PROD 

00157 

12600 

06242 

X 

0016? 

ENT 

67*02 

00160 

12700 

00002 

X 

CO  163 

ENT 

81*1 

00161 

12100 

00001 

00164 

RJP 

FLTPT 

00162 

65000 

06266 

00165 

ENT 

B4  *FL  TONE 

00163 

12400 

06136 

CALCULATE  1-ESS2 

00166 

ENT 

B5»BELPR0D 

00164 

12500 

06242 

X 

00  167 

ENT 

B6*BEL0IFF 

00165 

12600 

06236 

X 

00170 

ENT 

B7*0  1 

00166 

12700 

00001 

X 

0017  1 

ENT 

B  1  *  1 

00167 

12100 

0000  1 

00  172 

RJP 

FLTPT 

00170 

65000 

06266 

X  X EC  SUB 

00  173 

ENT 

B4*BEL0IFF 

0017  1 

12400 

06236 

CALCULATE  AM 1-EIS2) 

00174 

ENT 

B5  •  AA 

00172 

12500 

06426 

X 

00175 

ENT 

B6*NUMRAN 

00173 

12600 

06163 

X 

00  176 

ENT 

B7*02 

00174 

12700 

00002 

X 

00  177 

ENT 

61*1 

00175 

12100 

00001 

00200 

RJP 

FLTPT 

00176 

65000 

06266 

CALCULATION  STORED  IN  NJMRAN 

00201 

ENT 

A* W ( I  I  ) 

00177 

1  1030 

05432 

00202 

ENT 

Q*WI 11*1) 

00200 

10030 

05433 

00203 

RJP 

M002PI 

00201 

65000 

03752 

00204 

STR 

A  •  W  (  I  I  ) 

00202 

15030 

05432 

00205 

STR 

0*  W ( I I *1) 

00203 

14030 

05433 

CORRECTED  I 

00206 

ENT 

B4*n 

00204 

12400 

05432 

CALCULATE  SIN  I 

00207 

ENT 

B6 • I I S I N 

00205 

12600 

05540 

00210 

ENT 

B7*  13 

00206 

12700 

00013 

002  1  1 

ENT 

6  1*1 

00207 

12100 

0000  1 

002  12 

RJP 

FL  TPT 

00210 

65000 

06266 

SIN  I 

002  13 

ENT 

B6* I ICOS 

00211 

12600 

05542 

002  14 

ENT 

B7*  14 

00212 

12700 

00014 

002  IS 

ENT 

B  1  •  1 

002  13 

12100 

0000  1 

002  16 

RJP 

FLTPT 

002  14 

65000 

06266 

COS  I 

002  17 

ENT 

64  *0R AH 

002  15 

12400 

05442 

00220 

ENT 

B5*FL  T SECDI FF 

00216 

12500 

OSS  1 0 

00221 

ENT 

B6*BELPR0D 

002  17 

12600 

06242 

00222 

ENT 

B7  *02 

00220 

12700 

00002 

00223 

ENT 

61  •  1 

00221 

12100 

00001 

00224 

RJP 

FLTPT 

00222 

65000 

06266 

MUL  RAM  X  SUBTRACTION 

00225 

ENT 

B4*SR AM 

00223 

12400 

05440 

00226 

ENT 

65  *6EL  PROD 

00224 

12500 

06242 

• 

00227 

ENT 

B6  *R AM 

00225 

12600 

05727 

* 

00230 

ENT 

67*00 

00226 

12700 

00000 

• 

00231 

ENT 

B  1  •  1 

00227 

12100 

0000  1 

002  32 

RJP 

FLTPT 

00230 

65000 

06266 

AOO  STARTING  RAM  TO  MUL  T  =  R  A  M 

00233 

ENT 

B4-D0MEGA 

00231 

12400 

0S436 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


oo 

o 


CAROS 


LI  10  LAREL 

TA  STATEMENT 

LOC 

F  JK 8 

y 

NOTES 

00234 

ENT 

B5»FLT$ECDIFF 

00232 

12500 

05510 

00235 

ENT 

B6»BELPR00 

00233 

12600 

06242 

00236 

ENT 

87  »02 

00234 

12700 

00002 

MUL  OMEGA  X  SUBTRACTION 

00237 

ENT 

B  1*1 

00235 

12100 

00001 

00240 

RJP 

FLTPT 

00236 

65000 

06266 

0024  1 

ENT 

B4 •SOMEGA 

00237 

12400 

05434 

00242 

ENT 

85-BELPROD 

00240 

12500 

06242 

00243 

ENT 

86*Z0MEGA 

00241 

12600 

05725 

00244 

ENT 

B7*00 

00242 

12700 

00000 

00245 

ENT 

B  1  •  1 

00243 

12100 

00001 

00246 

RJP 

FLTPT 

00244 

65000 

06266 

CALCULATEO  OMEGA 

00247 

ENT 

Q#VM  ZOMEGA*  1  ) 

00245 

10030 

05726 

FRAC  IN  Q  REG 

00250 

ENT 

A»  W( ZOMEG A ) 

00246 

1  1030 

05725 

EXP  IN  A  REG 

00251 

RJP 

M002PI 

00247 

65000 

03752 

CORRECTION  OMEGA 

00252 

STR 

A«  VM  ZOMEG  A  ) 

00250 

15030 

05725 

CORRECTEO  OMEGA 

00253 

STR 

Q»W(  ZOMEG A-f  1  ) 

00251 

14030 

05726 

00254 

ENT 

A»W( R AM) 

00252 

1  1030 

05727 

RAM  EXP  IN  A  REG 

00255 

ENT 

Q*W(RAM*1 ) 

00253 

10030 

05730 

RAM  FRAC  IN  0  REG 

00256 

RJP 

M002PI 

00254 

65000 

03752 

IS  A8S  VAL  RAM  LESS  OR  *2PI 

00257 

STR 

A» W( RAM ) 

00255 

15030 

05727 

CORRECTEO  RAM 

00260 

STR 

Q«W(RAM+1 ) 

00256 

14030 

05730 

00261 

PUT 

W(RAM)»W(RAMLAST) 

00257 

10030 

05727 

00260 

14030 

05757 

00262 

PUT 

W(RAM+I)«W(RAMLAST*I) 

00261 

10030 

05730 

00262 

14030 

05760 

00263 

CL 

W(TLAST) 

00263 

16030 

05520 

00264 

CL 

W( TLAST+ 1 ) 

00264 

16030 

05521 

00265 

MOVE 

2*NSTJHE»TIME21A$T 

00265 

10030 

05506 

00266 

14030 

05522 

00267 

10030 

05507 

00270 

14030 

05523 

00266 

PUT 

W(ZOMEGA) •W(MESALAST) 

00271 

10030 

05725 

00272 

14030 

05761 

00267 

PUT 

W ( ZOMEGA+ 1 ) ( MEGALAST* 1 ) 

00273 

10030 

05726 

00274 

14030 

05762 

00270 

NO-OP  CALCULATE 

00275 

12000 

00000 

N  FOR  DOPPLERS 

00271 

ENT 

B4»NUMRAN 

00276 

12400 

06163 

00272 

ENT 

B5«B4 

00277 

12504 

00000 

00273 

ENT 

B6»PP 

00300 

12600 

06065 

00274 

ENT 

B7  »02 

00301 

12700 

00002 

00275 

RJP 

FLTPT 

00302 

65000 

06266 

00276  NSTART 

ENT 

B4  «EE 

00303 

12400 

05430 

00277 

ENT 

B5#EE 

00304 

12500 

05430 

00300 

ENT 

86*EE2 

00305 

12600 

06047 

00301 

ENT 

B7*02 

00306 

12700 

00002 

00302 

RJP 

FLTPT 

00307 

65000 

06266 

ESS2 

00303 

ENT 

B4 •FLTONE 

00310 

12400 

06136 

00304 

ENT 

B5«EE2 

00311 

12500 

06047 

00305 

ENT 

B6*EE2M1 

00312 

12600 

0605  1 

00306 

ENT 

B  7  »0 1 

00313 

12700 

00001 

00307 

RJP 

FLTPT 

00314 

65000 

06266 

I -E  SS2 

00310 

ENT 

B4  «EE2M 1 

00315 

12400 

06051 

003  11 

ENT 

86»FACT0R6 

00316 

12600 

06037 

BELTP 


00 


CARDS  LI  ID  LABEL 

.  00312 
.  00313 
.  00314 

•  00315 
.  00316 
.  00317 

•  00320 
.  00321 

•  00322 
.  00323 

•  00324 
.  00325 

•  00326 
.  00327 
.  00330 
.  00331 

00332 
.  00333 
.  00334 
.  00335 
.  00336 
.  00337 
.  00340 
.  00341 

•  00342 

•  00343 
.  00344 

•  00345 
.  00346 
.  00347 
.  00350 
.  00351 
.  00352 

•  00353 
.  00354 
.  00355 
.  00356 
.  00357 

•  00360 

•  00361 

•  00362 
.  00363 
.  00364 

•  00365 
.  00366 
.  00367 
.  00370 
.  00371 

•  00372 

•  00373 
.  00374 
.  00375 
.  00376 


TA  STATEMENT 

ENT  B7*  1 2 

RJP  FLTPT 

ENT  84*IISIN 

ENT  B5MISIN 

ENT  B6MISIN2 

ENT  B7*02 

RJP  FLTPT 

ENT  B4#THRHF 

ENT  B5»I I SIN2 

ENT  B6  *F  ACTOR 5 

ENT  B7  *02 

RJP  FLTPT 

ENT  B4«FLT0NE 

ENT  B5*F ACTORS 

ENT  B6  «FACT0R4 

ENT  B7  »0 1 

RJP  FLTPT 

ENT  B4*A2 

ENT  B5*PP 

ENT  B6*FACT0R3 

ENT  B7*03 

RJP  FLTPT 

ENT  B4*W0NETH 

ENT  B5*FACTOR3 

ENT  B6»FACT0R2 

ENT  B7«02 

RJP  FLTPT 

ENT  B4»F ACT0R2 

ENT  B5*F ACT0R4 

ENT  B6»F ACTOR  1 

ENT  B7  *02 

RJP  FLTPT 

ENT  B4  »F ACTOR  1 

ENT  B5  »F ACT0R6 

ENT  B6*FACT0R  1 1 X 

RJP  FLTPT 

ENT  B4*FLT0NE 

ENT  B5»FACT0R11X 

ENT  B6»FACT0R 10 

ENT  B7  *0 1 

RJP  FLTPT 

ENT  B4*AA 

ENT  B5»F ACTOR  10 

ENT  06*KKNCALC 

ENT  B7*03 

RJP  FLTPT 

ENT  B4«KKNCALC 

ENT  B5«ERC0N 

ENT  B6»KKCM 

ENT  67  «02 

RJP  FLTPT 

ENT  B4«FLT0NE 

ENT  B5»KKCM 


OUTPUT  NO.  210 
PONTON*  7 / 1/65 


LOC 

F  JKB 

Y 

NOTES 

00317 

12700 

00012 

00320 

65000 

06266 

SQRTCI-ESS2) 

00321 

12400 

05540 

00322 

12500 

05540 

00323 

12600 

05670 

00324 

12700 

00002 

00325 

65000 

06266 

S INI $12 

00326 

12400 

06155 

00327 

12500 

05670 

00330 

12600 

06035 

00331 

12700 

00002 

00332 

65000 

06266 

3/2  S  I N I $$2 

00333 

12400 

06136 

00334 

12500 

06035 

00335 

12600 

06033 

00336 

12700 

00001 

00337 

65000 

06266 

1-3/2  SINI $$2 

00340 

12400 

06173 

00341 

12500 

06065 

00342 

12600 

06031 

00343 

12700 

00003 

00344 

65000 

06266 

A2/PSS2 

00345 

12400 

06132 

00346 

12500 

06031 

00347 

12600 

06027 

00350 

12700 

00002 

00351 

65000 

06266 

1/3  ( A2/PSS2 ) 

00352 

12400 

06027 

00353 

12500 

06033 

00354 

12600 

06025 

00355 

12700 

00002 

00356 

65000 

06266 

1/3CA2/P$$2)( 1-3/2SINISS2) 

00357 

12400 

06025 

00360 

12500 

06037 

00361 

12600 

06077 

00362 

65000 

06266 

ABOVE (I-E$$21$$1/2 

00363 

12400 

06136 

00364 

12500 

06077 

00365 

12600 

06041 

00366 

12700 

00001 

00367 

65000 

06266 

1 -ABOVE 

00370 

12400 

05426 

00371 

12500 

06041 

00372 

12600 

06055 

00373 

12700 

00003 

00374 

65000 

06266 

A/ABOVE 

00375 

12400 

06055 

00376 

12500 

06171 

00377 

12600 

06075 

00400 

12700 

00002 

00401 

65000 

06266 

CONVERT  K  TO  CM 

00402 

12400 

06136 

00403 

12500 

06075 

8FLTP 


SPURT  OUTPUT  NO.  ?I0 
PONTON,  7/  l/t>5 


CAROS 

LI  In  LARFL 

TA  STATEMENT 

LOC 

F  J<R 

Y 

NOTt  S 

00377 

FNT 

B6.KREC IP 

00404 

12600 

06057 

00400 

ENT 

B7  *03 

00405 

12700 

00003 

00401 

RJP 

FLTPT 

004  06 

65000 

06266 

1  /< 

00402 

FNT 

84  *GM 

00407 

12400 

06  167 

00403 

FNT 

8  5  *KRF  C  I  P 

004  10 

1  ?500 

06057 

00404 

FNT 

H 6  »GMk 

004  1  1 

12600 

0606  1 

004  OS 

FNT 

97*02 

004  12 

12700 

00002 

00406 

RJP 

FLTPT 

004  1  3 

65000 

06266 

SM/K 

00407 

ENI 

B4  *GMK 

004  14 

12400 

0606  1 

004  10 

ENT 

96  *F  AC  T OR  1  1 

004  15 

1  2600 

06043 

004  1  1 

ENT 

8  7  *  1  2 

004  16 

12700 

00012 

004  1? 

RJP 

FLTPT 

004  1  7 

65000 

06266 

SORT  (3M/<) 

004  |  3 

ENT 

B4  *F AC  TOR  1  1 

00420 

12400 

0604  3 

004  14 

ENT 

BS*KRECIP 

0042  1 

12500 

06057 

004  is 

ENT 

B6*NN 

00422 

12600 

0574  3 

004  16 

ENT 

87*02 

00423 

12700 

00002 

004  17 

RJP 

FLTPT 

00424 

65000 

06266 

N=I/K(SQRMGM/<1) 

004  20 

ENT 

B4*USCHnSW) 

00425 

12410 

05425 

SCHEDULE  INDICATOR 

00421 

RJP 

L ( BELT  CT  AB*64  ) 

00426 

65014 

00770 

JU*P  TO  SCHECJLE  A 

0042? 

JP 

BELTCERR 

00427 

6  1000 

00761 

ERROR  RETURN 

00423  eEL  TC  5 

RJP 

L  I  BEL  TC  T  AB  A«-  94  ) 

004  30 

650  14 

00774 

C0424 

JP 

BELTCERR 

00431 

6  1000 

00761 

0042S 

ENT 

84  »OEL T9 

004  32 

12400 

05452 

00426 

ENT 

86  *DEL T  S 1 N 

00433 

12600 

05550 

00427 

ENT 

97*13 

00434 

12700 

00013 

004  30 

RJP 

FLTPT 

004  35 

65000 

06266 

004  31 

ENT 

86  *DEL  TC3S 

00436 

12600 

05562 

004  3? 

ENT 

B7*  14 

00437 

12700 

00014 

004  33 

RJP 

FL  TP  T 

00440 

65000 

06266 

004  34 

ENT 

04  *ALPH8 

0044  1 

12400 

05460 

004  35 

FNT 

B6*ALPHC0S 

0044? 

12600 

05606 

004  36 

RJP 

FL  TPT 

00443 

65000 

06266 

00437 

ENT 

86  * AL  Ph$ I N 

00444 

12600 

05574 

00440 

F.NT 

07*13 

00445 

12700 

00013 

00441 

RJP 

FL  TPT 

00446 

65000 

06266 

• 

00442 

ENT 

04  *R ANGER 

00447 

12400 

05731 

• 

00443 

ENT 

05  *DEL  TS I N 

00450 

12500 

05550 

• 

00444 

ENT 

86*22 

00451 

12600 

06023 

00445 

ENT 

07*02 

00452 

12700 

00002 

00446 

RJP 

FL  TPT 

004  53 

65000 

06266 

00447 

ENT 

BS*DELTCOS 

00454 

12500 

05562 

00450 

ENT 

B6  *T  XX  1 

00455 

12600 

06017 

00451 

RJP 

FLTPT 

004  S6 

65000 

06266 

00452 

ENT 

B4*ALPHSIN 

00457 

12400 

05574 

• 

00453 

ENT 

B5*TXXl 

00460 

12500 

06017 

• 

00454 

ENT 

B6*YY 

00461 

12600 

06021 

• 

00455 

RJP 

FLTPT 

00462 

65000 

06266 

00456 

ENT 

B4«ALPHC0$ 

00463 

12400 

05606 

00457 

ENT 

B6*TXX 

00464 

12600 

06015 

00460 

RJP 

FLTPT 

00465 

65000 

06266 

0046  1 

ENT 

B4*ALPHB 

00466 

12400 

05460 

SET  UP  FOR  COS  ORIf 

00462 

ENT 

B5*RAM 

00467 

12500 

05727 

X 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N«7/ 1/65 


00 

00 


CAROS 


LI  10  LABEL  TA  STATEMENT 


00463 

ENT 

00464 

ENT 

00465 

RJP 

004  66 

ENT 

00467 

ENT 

00470 

RJP 

004  71 

STR 

00472 

STR 

00473 

ENT 

00474 

ENT 

00475 

ENT 

00476 

RJP 

00477 

ENT 

00500 

ENT 

00501 

ENT 

00502 

ENT 

00503 

RJP 

00504 

ENT 

00505 

SUB 

00506 

JP 

00507 

JP 

005  10 

BELTCCERR 

ENT 

0051  1 

JP 

00512 

ENT 

00513 

CP 

00514 

SUB 

00515 

JP 

00516 

COM 

00517 

JP 

00520 

ENT 

00521 

ENT 

00522 

STR 

00523 

STR 

00524 

BELTCC 

ENT 

00525 

ENT 

00526 

ENT 

00527 

ENT 

005  30 

RJP 

00531 

ENT 

00532 

ENT 

00533 

ENT 

00534 

ENT 

00535 

RJP 

00536 

ENT 

00537 

ENT 

00540 

ENT 

00541 

RJP 

00542 

ENT 

00543 

ENT 

00544 

ENT 

00545 

ENT 

00546 

RJP 

00547 

ENT 

B6«CH I 
87  «0 1 
FLTPT 
A*W<CHl ) 

Q«  W ( CH I  ♦  1  ) 

MO 02 P I 
A«W1CHI ) 

Q»  W1 CHI ♦ 1  ) 

B4  *CHI 

86  «C0$CHI 
B7«  1 4 
FLTPT 
84* 1 1 S I N 
85 •COSCMI 
86*C0$CHI 
B7»02 
FLTPT 

A’WICOSCHI) 

A«  4000 1 «APOS 
BELTCC 
S*3« AZERO 
A«  11 

BELTCERR 

A«Wi COSCH !♦  1 ) • APOS 

A* 

A«W1FLT0NEM ) • ANOT 
BELTCC 
A»  77«YM0RE 
BE  LTCCERR 
A*W1FLT0NE*1 ) 
Q^W1C0SCHIt1)#QP0S 
A«CPW ( COSCH I ♦1)«SKIP 
A«  W( COSCH I ♦ 1 ) 

84 •COSCHI 

B5«C0SCH1 

B6«C0SCHI 2 

87«02 

FLTPT 

B4*FLT0NE 

B5«C0SCHI2 

86«S  I NCHl 

B7«0 1 

FLTPT 

84  «S I NCHl 

B6«SINCM1 

87«  1 2 

FLTPT 

B4«ALPHB 

B5#8EL2PI 

86* AL PHB I 

87  «03 
FLTPT 
84#DELT8 


LOC 

F  JKB 

Y 

NOTES 

00470 

12600 

05773 

X 

004  71 

12700 

00001 

X 

00472 

65000 

06266 

X 

00473 

1  1030 

05773 

MAKE  CHI  MOO  l  2PI 

00474 

10030 

05774 

X 

00475 

65000 

03752 

X 

00476 

15030 

05773 

X 

00477 

14030 

05774 

X 

00500 

12400 

05773 

COS  OF  CHI 

00501 

12600 

05660 

X 

00502 

12700 

00014 

X 

00503 

65000 

06266 

00504 

12400 

05540 

SIN  I  X  COS  CHI 

00505 

12500 

05660 

00506 

12600 

05660 

X 

00507 

12700 

00002 

X 

00510 

65000 

06266 

00511 

11030 

05660 

CHECK  BALUE  OF  COS 

00512 

21600 

40001 

IS  COS  GRTR  1 

00513 

61000 

00531 

NO 

00514 

60400 

00517 

MAYBE 

00515 

11000 

0001  1 

YES 

00516 

61000 

00761 

00517 

11630 

05661 

CHECK  FRACTION 

00520 

15040 

00000 

FRACTION  NEG  MAKE  IT  ♦ 

00521 

21530 

06137 

00522 

61000 

00531 

00523 

04700 

00077 

00524 

61000 

00515 

00525 

11030 

06137 

00526 

10230 

05661 

00527 

15170 

05661 

00530 

15030 

05661 

00531 

12400 

05660 

00532 

12500 

05660 

X 

00533 

12600 

05775 

X 

00534 

12700 

00002 

X 

00535 

65000 

06266 

00536 

12400 

06136 

1-COS  X  cos 

00537 

12500 

05775 

X 

00540 

12600 

05662 

X 

00541 

12700 

00001 

X 

00542 

65000 

06266 

00543 

12400 

05662 

SORT  OF  1-COS  X  COS 

00544 

12600 

05662 

X 

00545 

12700 

00012 

X 

00546 

65000 

06266 

00547 

12400 

05460 

CONVERT  TO  REVOLUTIONS 

00550 

12500 

06165 

X 

00551 

12600 

05767 

X 

00552 

12700 

00003 

X 

00553 

65000 

06266 

00554 

12400 

05452 

CONVERT  TO  REVOLUTIONS 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N»7/l/65 


CAROS  LI  10  LABEL  TA  STATEMENT 


00 


00550 

ENT 

B6*DELTB1 

00551 

ENT 

B7  *03 

00552 

RJP 

FLTPT 

00553 

ENT 

B4  »27D 

00554 

ENT 

B5«ALPHB 1 

00555 

ENT 

B6*RA 

00556 

ENT 

B7*  1  1 

00557 

RJP 

FLTPT 

00560 

ENT 

B4*27D 

00561 

ENT 

B5«0ELTB 1 

00562 

ENT 

B6«0EC 

00563 

ENT 

B7*  1  1 

00564 

RJP 

FLTPT 

00565 

ENT 

A*W( S I NCH I*1)»AN0T 

00566 

JP 

SCHICON 

00567 

ENT 

A»W( COSCHI* 1 ) •ANOT 

00570 

JP 

CCHICON 

00571 

ENT 

B4«29D 

00572 

ENT 

B5®SI NCHI 

00573 

ENT 

B6«S1N0RI ENT 

00574 

RJP 

FLTPT 

00575 

ENT 

B4*29D 

00576 

ENT 

B5*C0SCH1 

00577 

ENT 

B6«C0S0RI ENT 

00600 

RJP 

FLTPT 

00601 

ENT 

B4*22D 

00602 

ENT 

B5*RANGEB 

00603 

ENT 

B6*R AO  I  US 

00604 

RJP 

FLTPT 

00605 

JP 

BELTJUMP 

00606  SCHICON 

ENT 

A*3777  777777 

00607 

STR 

A»W( COSOR IENT ) 

00610 

CL 

H( SI NORIENT) 

00611 

JP 

BELTJUMP 

00612  CCHICON 

ENT 

A0777777777 

00613 

STR 

A* W ( SI  NOR IENT) 

00614 

CL 

W ( COSORI E  NT  1 

00615  BELTJUMP 

JP 

BELTEMSW 

00616 

MOVE 

2*TLAST*TIME2LAST 

00617 

MOVE 

2*TIME*TLAST 

00620 

BELTC81 

ENT 

B  1  *0 

00621 

BELTCB4 

ENT 

B4  *0 

00622 

BELTCB5 

ENT 

B5  *0 

00623 

BELTCB6 

ENT 

B6*0 

00624 

BELTCB7 

ENT 

B7*0 

00625 

8ELTCB7X 

RPL 

Y* 1*L(8£LTC0N)»SKI 

00626 

RPL 

Y+ 1*LCBELTC2) *SKIP 

LOC 

F  JKB 

Y 

NOTES 

00555 

12600 

05771 

X 

00556 

12700 

00003 

X 

00557 

65000 

06266 

00560 

12400 

00033 

00561 

12500 

05767 

X 

00562 

12600 

63002 

X 

00563 

12700 

0001  1 

X 

00564 

65000 

06266 

00565 

12400 

00033 

00566 

12500 

05771 

X 

00567 

12600 

63003 

X 

00570 

12700 

0001  1 

X 

00571 

65000 

06266 

00572 

11530 

05663 

00573 

61000 

00613 

00574 

11530 

05661 

00575 

61000 

00617 

00576 

12400 

00035 

00577 

12500 

05662 

X 

00600 

12600 

63064 

X 

00601 

65000 

06266 

00602 

12400 

00035 

00603 

12500 

05660 

X 

00604 

12600 

63065 

X 

00605 

65000 

06266 

00606 

12400 

00026 

CONVERT  RAO  I  US  TO  FIXED  PT 

00607 

12500 

05731 

X 

00610 

12600 

63006 

X 

00611 

65000 

06266 

00612 

61000 

0D622 

00613 

11030 

07734 

00614 

15030 

63065 

00615 

16030 

63064 

00616 

61000 

00622 

00617 

11030 

07734 

00620 

15030 

63064 

00621 

16030 

63065 

00622 

61000 

01000 

00623 

10030 

05520 

00624 

14030 

05522 

00625 

10030 

05521 

00626 

14030 

05523 

00627 

10030 

05466 

00630 

14030 

05520 

00631 

10030 

05467 

00632 

14030 

05521 

00633 

12100 

00000 

00634 

12400 

00000 

00635 

12500 

00000 

00636 

12600 

00000 

00637 

12700 

00000 

00640 

361  10 

00002 

00641 

361  10 

00644 

BELTP 


SPURT  OUTPUT  NO.  210 
PONT  ON*  7/ 1/65 


00 

cn 


CAROS 


Li  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00627 

JP 

BELTCON 

00642 

61000 

00002 

00630 

JP 

BELTC2 

00643 

61000 

00644 

00631 

BELTC2 

ENTRY 

00644 

61000 

00000 

NEXT  POINT  ENTRY 

00632 

STR 

B  1  «L ( BELTCB 1 1 

00645 

16110 

00633 

00633 

STR 

B4  *L ( BELTCB4 ) 

00646 

16410 

00634 

00634 

STR 

B5»L ( BELTC85) 

00647 

16510 

00635 

00635 

STR 

B6*L(BELTCB6) 

00650 

16610 

03636 

00636 

CL 

Q* 

00651 

10000 

00000 

00637 

ENT 

□•12000 

00652 

10000 

12000 

00640 

STR 

Q«U( BELTCSW) 

00653 

14020 

00766 

00641 

STR 

Q*UI BELTCB7X) 

00654 

14020 

00640 

00642 

PUT 

1 • W( NCODE ) 

00655 

10000 

00001 

00656 

14030 

05703 

00643 

ENT 

64*280 

00657 

12400 

00034 

00644 

ENT 

B5*CELTIHE 

00660 

12500 

63133 

00645 

ENT 

B6«T I  ME 

00661 

12600 

05466 

X 

00646 

ENT 

B7«  10 

00662 

12700 

00010 

X 

00647 

RJP 

FLTPT 

00663 

65000 

06266 

00650 

ENT 

B4*T I  ME 

00664 

12400 

05466 

CONVERT  TO  SECONDS 

00651 

ENT 

B5«TC0NV 

00665 

12500 

06130 

00652 

ENT 

B6*T1 ME 

00666 

12600 

05466 

X 

00653 

ENT 

B7«02 

00667 

12700 

00002 

00654 

RJP 

FLTPT 

00670 

65000 

06266 

X 

00655 

SYSTART 1 

ENT 

B4*  T I  ME 

00671 

12400 

05466 

00656 

ENT 

B5-TLAST 

00672 

12500 

05520 

00657 

ENT 

B6«BELDIFF 

00673 

12600 

06236 

00660 

ENT 

B7»0 1 

00674 

12700 

00001 

00661 

ENT 

B 1  •  1 

00675 

12100 

00001 

00662 

RJP 

FLTPT 

00676 

65000 

06266 

00663 

ENT 

B4«BEL0IFF 

00677 

12400 

06236 

00664 

ENT 

B5«DRAM 

00700 

12500 

05442 

00665 

ENT 

B6»BELPR00 

00701 

12600 

06242 

00666 

ENT 

B7  *02 

00702 

12700 

00002 

00667 

ENT 

B 1  •  1 

00703 

12100 

00001 

00670 

RJP 

FLTPT 

00704 

65000 

06266 

HUL  SU8T  X  DERIV  OF  RAM 

00671 

ENT 

B4  *BELPROO 

00705 

12400 

06242 

00672 

ENT 

B5  *RAMLAST 

00706 

12500 

05757 

00673 

ENT 

B6*RAM 

00707 

12600 

05727 

00674 

ENT 

B7«00 

00710 

12700 

00000 

00675 

ENT 

B  1  •  1 

007  11 

12100 

00001 

00676 

RJP 

FLTPT 

007  12 

65000 

06266 

CALCULATED  RAN 

00677 

RSH 

A0*300 

00713 

03000 

00036 

RAM  FRAC  IN  ORES 

00700 

ENT 

A*W( RAM) 

00714 

11030 

05727 

RAM  EXP  I  ARES 

00701 

RJP 

M0D2PI 

007  15 

65000 

03752 

NUMBER  MUST  BE  BETWEEN  OR 
NO  2P  I 

00702 

STR 

A*W( RAM) 

00716 

15030 

05727 

CORRECTED  RAM 

00703 

STR 

Q* W( RAM* 1 ) 

00717 

14030 

05730 

00704 

ENT 

B4*TIME 

00720 

12400 

05466 

CALCULATE  NEW  OMEGA 

00705 

ENT 

B5»TL  AST 

00721 

12500 

05520 

00706 

ENT 

B6*BELDI FF 

00722 

12600 

06236 

00707 

ENT 

B7»0 1 

00723 

12700 

00001 

00710 

ENT 

B  1  •  1 

00724 

12100 

00001 

00711 

RJP 

FLTPT 

00725 

65000 

06266 

SUB  T-TLAST 

BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*?/ 1/65 


00 

ON 


CAROS 


LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

00712 

ENT 

B4*BELDIFF 

00726 

12400 

06236 

00713 

ENT 

B5+D0MEGA 

00727 

12500 

05436 

00714 

ENT 

B6«BELPR0D 

00730 

12600 

06242 

00715 

ENT 

B7#02 

00731 

12700 

00002 

00716 

ENT 

B 1  •  1 

00732 

12100 

00001 

00717 

RJP 

FLTPT 

00733 

65000 

06266 

00720 

ENT 

B4«MEGALAST 

00734 

12400 

05761 

00T21 

ENT 

B5*8ELPROD 

00735 

12500 

06242 

00722 

ENT 

B6*Z0MEGA 

00736 

12600 

05725 

00723 

ENT 

B7*00 

00737 

12700 

00000 

00724 

ENT 

B  1  •  1 

00740 

12100 

00001 

00725 

RJP 

FLTPT 

00741 

65000 

06266 

00726 

ENT 

A*W( ZOMEGA) 

00742 

1  1030 

05725 

00727 

ENT 

Q*W( ZOMEGA* 1 1 

00743 

10030 

05726 

00730 

RJP 

M002PI 

00744 

65000 

03752 

00731 

STR 

A* W( ZOMEGA ) 

00745 

15030 

05725 

00732 

STR 

Q*W(Z0MEGA*1) 

00746 

14030 

05726 

00733 

PUT 

W( RAM )  *W  ( RAMLAST ) 

00747 

10030 

05727 

00750 

14030 

05757 

00734 

PUT 

W( RAM* 1 )«W(RAMLA$T+1) 

00751 

10030 

05730 

00752 

14030 

05760 

00735 

PUT 

W( ZOMEGA ) W( MEGALAST) 

00753 

10030 

05725 

00754 

14030 

0576  1 

00736 

PUT 

W( ZOMEGA* 1 ) *W ( MEGALAST* 1 1 

00755 

10030 

05726 

00756 

14030 

05762 

00737 

ENT 

B4*L ( SCHOSW 1 

00757 

12410 

05425 

00740 

JP 

BELTC3 

00760 

61000 

00430 

00741 

BELTCERR 

ENT 

B4*L< BELTCB4) 

00761 

12410 

00634 

00742 

ENT 

B5«L 1 BELTCB5) 

00762 

12510 

00635 

00743 

ENT 

B6«L  f  8ELTCB6 ) 

00763 

12610 

00636 

00744 

ENT 

B7*L  f  BELTCB7) 

00764 

12710 

00637 

00745 

ENT 

B1  *LI BELTCB1 ) 

00765 

121  10 

00633 

00746 

BELTCSW 

JP 

BELTCON 

00766 

61000 

00002 

00747 

JP 

BELTC2 

00767 

61000 

00644 

00750 

BELTCTAB 

0 

FIXLATI 

00770 

00000 

01764 

00751 

0 

FIXRATI 

00771 

00000 

02376 

00752 

0 

FIXRAI 

00772 

00000 

02751 

00753 

0 

FIXLONGI 

00773 

00000 

03610 

00754 

BELTCTABA 

0 

FIXLAT 

00774 

00000 

02320 

00755 

0 

FIXRATE 

00775 

00000 

02552 

00756 

0 

FIXRA 

00776 

00000 

03060 

00757 

0 

FIXLONG 

00777 

00000 

03652 

00760 

BELTEMSW 

RJP 

BELOV 

01000 

65000 

01011 

00761 

JP 

BELTCERR 

01001 

61000 

00761 

00762 

RJP 

ORANGE 

01002 

65000 

01073 

00763 

JP 

BELTCERR 

01003 

61000 

00761 

00764 

RJP 

OELOELTA 

01004 

65000 

01  143 

00765 

JP 

BELTCERR 

01005 

61000 

00761 

00766 

RJP 

OALPHA 

01006 

65000 

01203 

00767 

JP 

BELTCERR 

01007 

61000 

00761 

00770 

JP 

BELTJUMP* 1 

01010 

61000 

00623 

00771 

BELOV 

ENTRY 

01011 

61000 

00000 

00772 

STR 

B4  *L ( BEL0VB4 1 

01012 

164  10 

01064 

NOTES 


HUL  SUBT  X  DERIV  OMEGA 

NEW  OMEGA  CALCULATED 
OMEGA  EXP  ! N  ARES 

CORRECTED  OMEGA 
RAM  -  RAMLAST 

OMEGA  -  OME GAL AS T 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*?/ 1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

00773 

STR 

B5*L  ( BEL0VB5 ) 

01013 

16510 

01065 

00774 

STR 

B6*L ( BEL0VB6 ) 

010)4 

16610 

01066 

00775 

STR 

B7*L  ( BELDVB7 ) 

01015 

16710 

01067 

00776 

ENT 

B4*LL 

01016 

12400 

05707 

• 

00777 

ENT 

B5*Z0HEGA 

01017 

12500 

05725 

• 

01000 

ENT 

B6*VV 

01020 

12600 

05733 

• 

01001 

ENT 

B7*0  1 

01021 

12700 

00001 

01002 

RJP 

FLTPT 

01022 

65000 

06266 

01003 

ENT 

B4*VV 

01023 

12400 

05733 

01004 

ENT 

B6*VVS IN 

01024 

12600 

05530 

01005 

ENT 

B7*  1  3 

01025 

12700 

00013 

• 

01006 

RJP 

FLTPT 

01026 

65000 

06266 

♦ 

01007 

ENT 

B4*NN 

01027 

12400 

05743 

DV«1N$A$$2SS0RT< 1-ESS2 ) ) /RSS2 

• 

01010 

ENT 

B5*AA 

01030 

12500 

05426 

X 

01011 

ENT 

B6*BELPR0D 

01031 

12600 

06242 

X 

01012 

ENT 

B7*02 

01032 

12700 

00002 

X 

01013 

RJP 

FLTPT 

01033 

65000 

06266 

X  N$A 

01014 

ENT 

B4»BELPR00 

01034 

12400 

06242 

X 

• 

01015 

RJP 

FLTPT 

01035 

65000 

06266 

X  NSASS2 

• 

01016 

ENT 

B4*FACT0R6 

01036 

12400 

06037 

• 

01017 

ENT 

BS*BELPROD 

01037 

12500 

06242 

X 

01020 

ENT 

B6*BELPR00 

01040 

12600 

06242 

X 

01021 

ENT 

B7*02 

01041 

12700 

00002 

X 

01022 

RJP 

FLTPT 

01042 

65000 

06266 

X  N$AS S2S SORT ( 1-ESI2) 

01023 

ENT 

64  »R ANGEB 

01043 

12400 

05731 

01024 

ENT 

B5*R ANGEB 

01044 

12500 

05731 

X 

• 

0102S 

ENT 

B6*BELST0R1 

01045 

12600 

06250 

X 

• 

01026 

ENT 

B7*02 

01046 

12700 

00002 

X 

• 

01027 

RJP 

FLTPT 

01047 

65000 

06266 

X  RSS2 

01030 

ENT 

A*W(BELSTORU  l)*ANOT 

01050 

11530 

06251 

01031 

JP 

BELOVERR 

01051 

61000 

01071 

01032 

ENT 

B4  *BEL  PROD 

01052 

12400 

06242 

X 

01033 

ENT 

B5*BEL  STOR 1 

01053 

12500 

06250 

X  NSA$$2SSQRT(  1-ES$2)/R*S2  *DV 
/OT 

01034 

ENT 

B6*0V 

01054 

12600 

05745 

X 

01035 

ENT 

87*03 

01055 

12700 

00003 

X 

01036 

RJP 

FLTPT 

01056 

65000 

06266 

X 

01037  BELOU 

ENT 

B4*0V 

01057 

12400 

05745 

OU/OT*  OV/OT  ♦OW/OT 

01040 

ENT 

B5*OOMEGA 

01060 

12500 

05436 

X 

01041 

ENT 

B6*0U 

01061 

12600 

05747 

X 

01042 

ENT 

B7  *00 

01062 

12700 

00000 

X 

01043 

RJP 

FLTPT 

01063 

65000 

06266 

X  OU/OT  CALCULATEO 

01044  BEL0VB4 

ENT 

B4*0 

01064 

12400 

00000 

01045  BELDVB5 

ENT 

B5*0 

01065 

12500 

00000 

01046  BEL0VB6 

ENT 

B6*0 

01066 

12600 

00000 

• 

01047  BEL0VB7 

ENT 

B7*0 

01067 

12700 

00000 

• 

01050 

RPL 

Y*1*L(BEL0V)*SKIP 

01070 

36110 

01011 

• 

01051  BELOVERR 

ENT 

A*  80 

01071 

1  1000 

00010 

01052 

EXIT 

01072 

61010 

0101  1 

X 

• 

01053  ORANGE 

ENTRY 

01073 

61000 

00000 

CALCULATE  CHANGE  IN  RANGE 

• 

01054 

STR 

B4*L( 0RANGEB4 1 

01074 

16410 

01134 

X  INITIALIZATION 

• 

01055 

STR 

B5*L ( DRANGEB5 ) 

01075 

16510 

01135 

X 

01056 

STR 

B6*L ( 0RANGEB6 ) 

01076 

16610 

01136 

X 

8ELTP 


SPURT  OUTPUT  MO*  210 
P0NT0N*7/l/65 


CARDS 

M  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

notes 

• 

01057 

STR 

B7 *L 1 0RANGEB7 ) 

01077 

16710 

01  137 

X 

• 

01060 

ENT 

84*AA 

01100 

12400 

05426 

X ( (  ASEiN)  /SORT  (  1-ES*2m$IMV 

• 

01061 

ENT 

85*EE 

01  101 

12500 

05430 

X 

• 

01062 

ENT 

B6*8ELPRO0 

01  102 

12600 

06242 

X 

• 

01063 

ENT 

87*02 

01  103 

12700 

00002 

X 

• 

0106H 

RJP 

FLTPT 

01  104 

65000 

06266 

X  ASE 

• 

01065 

ENT 

84*8ELPR0D 

01  105 

12400 

06242 

X 

• 

01066 

ENT 

B5*NN 

01  106 

12500 

05743 

X 

m 

01067 

RJP 

FLTPT 

01107 

65000 

06266 

X  AAESN 

• 

01070 

ENT 

B4*BELPR00 

01  110 

12400 

06242 

X 

• 

01071 

ENT 

85*FACT0R6 

01111 

12500 

06037 

• 

0T072 

ENT 

86*8ELQU0T 

01112 

12600 

06246 

X 

01073 

ENT 

87*03 

01113 

12700 

00003 

X 

• 

01074 

RJP 

FLTPT 

01114 

65000 

06266 

X  < A$ESN)/SQRT< I-ESS2) 

• 

01075 

ENT 

84*8ELQU0T 

01  1  15 

12400 

06246 

X 

• 

01076 

ENT 

B5*VVSIN 

01116 

12500 

05530 

X 

• 

01077 

ENT 

B6*BELDR 

01117 

12600 

05753 

X 

• 

01100 

ENT 

87*02 

01  120 

12700 

00002 

X(<  ASESN)/SORT(  1-ESS2HSIMV 

• 

01  101 

RJP 

FLTPT 

01  121 

65000 

06266 

CONVERT  FROM  FLOATING  TO  FIXED 
POINT 

• 

01  102 

ENT 

84  *BELDR 

01122 

12400 

05753 

CONVERT  TO  N.N. 

• 

01103 

ENT 

85*NMC0N 

01123 

12500 

06134 

• 

01  104 

ENT 

B6*NMBEL0R 

01  124 

12600 

06063 

• 

01  105 

ENT 

87*02 

01125 

12700 

00002 

• 

01  106 

RJP 

FLTPT 

01126 

65000 

06266 

• 

01  107 

ENT 

84*260 

01127 

12400 

00032 

X 

• 

oiiio 

ENT 

B5*NMBEL0R 

01  130 

12500 

06063 

• 

01111 

ENT 

86*RADIUSD0T 

01131 

12600 

6301  1 

X 

• 

01112 

ENT 

87*11 

01132 

12700 

0001  1 

X 

• 

01113 

RJP 

FLTPT 

01133 

65000 

06266 

X 

• 

01114  DRANGEB4 

ENT 

84*0 

01  134 

12400 

00000 

• 

01115  0RANGEB5 

ENT 

85*0 

01  135 

12500 

00000 

m 

01  116  DRANGEB6 

ENT 

B6*0 

01136 

12600 

00000 

• 

01117  DRANGEB7 

ENT 

87*0 

01137 

12700 

00000 

• 

01120 

RPL 

Y* 1*L (ORANGE ) *SK! P 

01  140 

36110 

01073 

• 

01 121  DRANGERR 

ENT 

A  *80 

01141 

11000 

00010 

• 

01  122 

EXIT 

01142 

61010 

01073 

NORMAL  EXIT 

• 

01123  DELDELTA 

ENTRY 

01143 

61000 

ooodo 

• 

01124 

STR 

84*L ( DEL0ELTA84 1 

01  144 

16410 

01174 

• 

01125 

STR 

85*L1 0EL0ELTA85) 

01  145 

16510 

01175 

• 

01126 

STR 

B6*L( 0EL0ELTA86 1 

01146 

16610 

01176 

• 

01127 

STR 

87*L( DEL0ELTAB7 1 

01147 

16710 

01177 

• 

01130 

ENT 

84*1 1  SIN 

01  150 

12400 

05540 

S INI iCOSUSDU/OT  /COSDELTA 

01131 

ENT 

85*LLC0S 

01151 

12500 

05630 

X 

• 

01132 

ENT 

B6*BELPROO 

01152 

12600 

06242 

X 

# 

01133 

ENT 

87*02 

01153 

12700 

00002 

X 

• 

01  134 

RJP 

FLTPT 

01  154 

65000 

06266 

X  SINUCOSU 

• 

01135 

ENT 

84*BELPR0D 

01155 

12400 

06242 

X 

• 

01  136 

ENT 

85*0ELTC0S 

01156 

12500 

05562 

X 

m 

01137 

ENT 

86*BELQU0T 

01157 

12600 

06246 

X 

• 

01140 

ENT 

87*03 

01  160 

12700 

00003 

X 

• 

01  141 

RJP 

FLTPT 

01  161 

65000 

06266 

X  SINITCOSU /COS DELTA 

01  142 

ENT 

B4*BEL0U0T 

01162 

12400 

06246 

X  X 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


CARDS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JK6 

Y 

NOTES 

m 

01143 

ENT 

B5*DU 

01163 

12500 

05747 

X  X 

• 

01  144 

ENT 

B6*D0ELT 

01  164 

12600 

05751 

• 

01  145 

ENT 

B7*02 

01165 

12700 

00002 

X  X 

01  146 

RJP 

FLTPT 

01166 

65000 

06266 

X  X  *  DU/OT  ODELT/OT  CALCULA 
TED 

01147 

ENT 

B4*370 

01167 

12400 

00045 

CONVERT  FROM  FLT  TO  FIXED  PT 

01  150 

ENT 

B5*0OELT 

01170 

12500 

05751 

01  151 

ENT 

B6*0ECD0T 

01171 

12600 

63010 

01152 

ENT 

B7*11 

01172 

12700 

00011 

01153 

RJP 

FLTPT 

01173 

65000 

06266 

01154  OELOEL TAB4 

ENT 

B4*0 

01174 

12400 

00000 

01 155  DELOELT AB5 

ENT 

B5*0 

01175 

12500 

00000 

01156  DELOELT AB6 

ENT 

B6*0 

01176 

12600 

00000 

01157  0EL0ELTAB7 

ENT 

B7  *0 

01177 

12700 

00000 

01  160 

RPL 

Y* 1*L ( OELDELTA) 

01200 

36010 

01143 

01 161  OELOELT  AER 
01162 

ENT 

EXIT 

A*0 

01201 

01202 

11000 

61010 

00000 

01143 

01 163  DALPHA 

ENTRY 

01203 

61000 

00000 

CALCULATE  CHANGE  IN  ALPHA 

01164 

STR 

B4*l  (  DALPHAB4  ) 

01204 

16410 

01246 

X  INITIALIZATION 

• 

01165 

$TR 

B5*L ( DALPHAB5 ) 

01205 

16510 

01247 

X 

• 

01  166 

STR 

B6*L i 0ALPHAB6 ) 

01206 

16610 

01250 

X 

• 

01  167 

STR 

B7*L  I 0ALPHAB7 ) 

01207 

16710 

01251 

X 

01170 

ENT 

B4*DELTC0$ 

01210 

12400 

05562 

X  DRAM/DT+I COSI /COS $620 )$ DU/OT 

01171 

ENT 

B5*DELTC0S 

01211 

12500 

05562 

X  J 

01172 

ENT 

B6*BELPR00 

01212 

12600 

06242 

X 

01173 

ENT 

B7  *02 

01213 

12700 

00002 

X 

01174 

RJP 

FLTPT 

01214 

65000 

06266 

X  C0SSS20 

01175 

ENT 

B4MIC0S 

01215 

12400 

05542 

X 

01176 

ENT 

B5*BELPR00 

01216 

12500 

06242 

X 

01  177 

ENT 

B6*BELQU0T 

01217 

12600 

06246 

X  COS I/C0SSS20 

• 

01200 

ENT 

B7*03 

01220 

12700 

00003 

X 

• 

01201 

RJP 

FLTPT 

01221 

65000 

06266 

X 

• 

01202 

ENT 

B4*BELQU0T 

01222 

12400 

06246 

X 

01203 

ENT 

B5.0U 

01223 

12500 

05747 

X 

01204 

ENT 

B6*BELPR0D 

01224 

12600 

06242 

X 

01205 

ENT 

67*02 

01225 

12700 

00002 

X 

01206 

RJP 

FLTPT 

01226 

65000 

06266 

X  COS I/CDSSS20)S0U/0T 

01207 

ENT 

B4*DR AH 

01227 

12400 

05442 

X 

01210 

ENT 

B5«BELPR00 

01230 

12500 

06242 

X 

01211 

ENT 

B6*0EL ALPH 

01231 

12600 

05755 

X 

01212 

ENT 

B7*00 

01232 

12700 

ooooo 

X 

01213 

RJP 

FLTPT 

01233 

65000 

06266 

X  DRAM/OT+I COSI /C0SSS2O) SDJ/OT 
•DALPHA 

01214 

ENT 

B4«0ELTC0S 

01234 

12400 

05562 

01215 

ENT 

B5*0EL ALPH 

01235 

12500 

05755 

01216 

ENT 

B6*DEL ALPH 

01236 

12600 

05755 

01217 

ENT 

B7  *2 

01237 

12700 

00002 

01220 

RJP 

FLTPT 

01240 

65000 

06266 

• 

01221 

ENT 

B4*37D 

01241 

12400 

00045 

CONVERT  FROM  FLT  TO  FIXED  POIN 

T 

• 

01222 

ENT 

B5*DEL ALPH 

01242 

12500 

05755 

1 

X 

• 

01223 

ENT 

B6*RAD0T 

01243 

12600 

63007 

X 

OUTPUT  NO.  210 

BELTP 

PONTON* 7/ 1 /65 

CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

0122% 

ENT 

87*1 1 

012%% 

12700 

0001  1 

X 

• 

01225 

RJP 

FLTPT 

0 12%5 

65000 

06266 

X 

• 

01226  DALPHA84 

ENT 

84*0 

012%6 

12400 

00000 

• 

01227  OALPHABS 

ENT 

85*0 

012%7 

12500 

00000 

• 

01230  0ALPHA66 

ENT 

86*0 

01250 

12600 

00000 

• 

01231  0ALPHAB7 

ENT 

B7*0 

01251 

12700 

00000 

• 

01232 

RPL 

Y*1»L«0ALPHA)»SKIP 

01252 

361  10 

01203 

m 

01233  OALPHAEAR 

ENT 

A*0 

01253 

1 1000 

00000 

• 

0123% 

EXIT 

01254 

61010 

01203 

NORMAL  EXIT 

• 

0123S  OATAIN 

ENTRY 

01255 

61000 

00000 

• 

01236 

STR 

B6»L  C  0ATA09 ) 

01256 

16610 

01342 

• 

01237 

ENT 

A*LCSYSTAT1)*AZER0 

01257 

11410 

63313 

ZERO  IF  RE1NIT.  NON  ZERO  IF  IN 

IT1AL 

• 

012%0 

JP 

0ATA10 

01260 

61000 

013%% 

TO  INITIAL  ENTRY  PORTION 

• 

01 2%1 

RJP 

UC INTERCOM 

01261 

65020 

63426 

PRINT  REINIT  MESSAGE 

• 

012%2 

UtTAG  oatomesa*o 

01262 

01%6% 

00000 

• 

0 12%3 

CL 

A* 

01263 

1 1000 

00000 

STORE  A  ZERO  IN  THE  UPPER  PORT 

ION 

• 

012** 

ENT 

66*630 

0126% 

12600 

00077 

• 

0 1 2%5  0ATA01 

ENT 

66*66-2 

01265 

12606 

77775 

X  SPEC  TABLES  FOR  INTERCOM  TO 

PRINT 

• 

01 2%6 

6JP 

66*S+1 

01266 

72600 

01267 

• 

012%7 

STR 

A*UC  DATOA* 1 *B6) 

01267 

15026 

01365 

X  PRESENT  VALUES  OF  PARAMETERS 

VO 

o 

t 

01250 

6JP 

B6*DAT A01 

01270 

72600 

01265 

X 

• 

01251  OATASAME 

ENT 

B6*0AT  OA 

01271 

12600 

0136% 

• 

01252 

STR 

66*U(0ATA02) 

01272 

16620 

01277 

X  ANO  INPUT  IF  OESIREO  NEW  VAL 

UES 

• 

01253 

ENT 

66*0AT I A 

01273 

12600 

01577 

X  UP  TO  ANO  INCLUOING  SCHEDULE 

• 

0125% 

STR 

86*L ( 0ATA02 ) 

0127% 

16610 

01277 

X 

• 

01255 

ENT 

86*100 

01275 

12600 

00012 

• 

01256 

RJP 

Ul  INTERCOM) 

01276 

65020 

63426 

X 

• 

01257  0ATA02 

U-TAG  OATOAOATIA 

01277 

01364 

01577 

X 

• 

01260 

ENT 

A*U(0ATA02 ) 

01300 

1  1020 

01277 

X 

• 

01261 

A00 

A*% 

01301 

20000 

0000% 

X 

• 

01262 

STR 

A*U(0ATA02) 

01302 

15020 

01277 

X 

• 

01263 

ENT 

A*LC 0ATA02 ) 

01303 

11010 

01277 

X 

• 

0126% 

ADO 

A*6 

0130% 

20000 

00006 

X 

• 

01265 

STR 

A*L<  OATA02 1 

01305 

15010 

01277 

X 

• 

01266 

BJP 

B6*0AT A02- 1 

01306 

72600 

01276 

X 

• 

01267  0ATA03 

ENT 

A*W( OATASCHEOA ) 

01307 

11030 

01733 

• 

01270 

COM 

A*5*YM0RE 

01310 

04700 

00005 

• 

01271 

JP 

OATAO% 

01311 

61000 

01322 

NO  GOOD 

• 

01272 

SUB 

A*  1 

01312 

21000 

00001 

• 

01273 

ENT 

66*A 

01313 

12670 

00000 

SCHEOULE  COOE  TO  XR 

• 

0127% 

STR 

A*  W{ SCHOSW) 

0131% 

15030 

05425 

ANO  TO  SWITCH  WORO 

• 

01275 

JP 

L(  $♦  1 *66) 

01315 

61016 

01316 

INPUT  REMAINDER  OF  PARAMETERS 

• 

01276 

0 

0ATA05 

01316 

00000 

01325 

X  ACCOROING  TO  SCHEOULE 

• 

01277 

0 

0ATA06 

01317 

00000 

01330 

X 

• 

01300 

0 

0ATA07 

01320 

00000 

01335 

X 

• 

01301 

#  • 

0 

0ATA08 

01321 

00000 

01340 

X 

*  i 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


CARDS 


11  10 

label 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

01302 

0ATA04 

RJP  U( INTERCOM 

01322 

65020 

63426 

PRINT 

SCHEDULE 

ERROR  MESSAGE 

01303 

U-TAG  OA TO ERR A* OAT  I SCHED 

01323 

01470 

01673 

01304 

JP  DATA03 

01324 

61000 

01307 

01305 

OAT  AO 5 

RJP  UC INTERCOM) 

01325 

65020 

63426 

DEC 

01306 

U-TAG  DATOOEC*DAT I  DEC 

01326 

01440 

01675 

01307 

JP  0ATA09 

01327 

61000 

01342 

EXIT 

01310 

0ATAO6 

RJP  Ul INTERCOM) 

01330 

65020 

63426 

< 

01311 

U-TAG  DATOK*DAT I K 

01331 

01444 

01703 

01312 

RJP  UI INTERCOM 

01332 

65020 

63426 

LZERO 

01313 

U-TAG  0 AT0LZER0»DAT IL ZERO 

01333 

01450 

01711 

01314 

JP  0ATA09 

01334 

61000 

01342 

EXIT 

01315 

0ATA07 

RJP  Ul INTERCOM) 

01335 

65020 

63426 

ALPHA 

01316 

U-TAG  DA TO ALPHA* OAT I AL  PM A 

01336 

01454 

01717 

01317 

JP  0ATA09 

01337 

61000 

01342 

EXIT 

01320 

0ATA08 

RJP  Ul INTERCOM 

01340 

65020 

63426 

LONG 

01321 

U-TAG  DATOLONG*DAT I  LONG 

01341 

01460 

01725 

01322 

DATA09 

ENT  B6*00 

01342 

12600 

00000 

EXIT 

01323 

EXIT 

01343 

61010 

01255 

01324 

OAT  A  1 0 

ENT  A»UI YEARMONTH) 

01344 

1  1020 

63147 

01325 

STR  A*W( VYEAR ) 

01345 

15030 

05444 

01326 

ENT  A*LI YEARHONTH ) 

01346 

11010 

63147 

01327 

STR  A*W<  VMONTH ) 

01347 

15030 

05446 

01330 

RJP  Ul INTERCOM) 

01350 

65020 

63426 

01331 

U-TAG  OATOMESB  *0 

01351 

01466 

00000 

01332 

ENT  A*77777 

01352 

11000 

77777 

STORE 

r 

77777  IN 

INTERCOM  CALLIN 

01333 

ENT  B6»63D 

01353 

12600 

00077 

4 

01334 

OAT  A 1  1 

ENT  B6»B6-2 

01354 

12606 

77775 

01335 

B JP  B6*$* 1 

01355 

72600 

01356 

01336 

STR  A*UIDAT0A+1+B6) 

01356 

15026 

01365 

X 

01337 

BJP  B6*0ATA 1 1 

01357 

72600 

01354 

X 

01340 

CL  A* 

01360 

11000 

00000 

01341 

STR  A*UI 0 A TOT BASE*  1 1 

01361 

15020 

01421 

01342 

STR  A*U(DAT0M0*1) 

01362 

15020 

01425 

01343 

JP  OATASAME 

01363 

61000 

01271 

01344 

OATOA 

FO  1  •  A 

01364 

06050 

50505 

01345 

0  OATAA 

01365 

00000 

01472 

A  - 

01346 

FO  0«F7 

01366 

13670 

50505 

01347 

77777  AA 

01367 

77777 

05426 

01350 

OATOE 

FD  1  •  A 

01370 

06050 

50505 

01351 

0  OATAE 

01371 

00000 

01475 

E  ■ 

01352 

FO  0*F7 

01372 

13670 

50505 

01353 

77777  EE 

01373 

77777 

05430 

01354 

OATOI 

FO  1*A 

01374 

06050 

50505 

01355 

0  OATAI 

01375 

00000 

01500 

I  « 

01356 

FD  0«F7 

01376 

13670 

50505 

01357 

77777  11 

01377 

77777 

05432 

01360 

OATOW 

FO  1  •  A 

01400 

06050 

50505 

01361 

0  OATAW 

01401 

00000 

01503 

01362 

FO  0*F7 

01402 

13670 

50505 

01363 

77777  SOMEGA 

01403 

77777 

05434 

01364 

OATOWDOT 

FO  1  *  A 

01404 

06050 

50505 

01365 

0  OATAWOOT 

01405 

00000 

01506 

MOOT  - 

OUTPUT  NO.  210 

BELTP 

P0NT0N«7/ 1/65 

CAROS 

LI  JO  LABEL 

f A  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

01366 

FD  0«F7 

01406 

13670 

50505 

01367 

77777  DOMEGA 

01407 

77777 

05436 

01370  DATORAM 

FO  1  *  A 

01410 

06050 

50505 

01371 

0  OATARAM 

01411 

00000 

01512 

RAM  * 

01372 

FD  0#F7 

01412 

13670 

50505 

01373 

77777  SRAM 

01413 

77777 

05440 

01374  DATORAMDOT 

FD  1  •  A 

01414 

06050 

50505 

01375 

0  DATARAMDOT 

01415 

00000 

01515 

RAMDOT  « 

01376 

FD  0»F7 

01416 

13670 

50505 

01377 

77777  DRAM 

01417 

77777 

05442 

01400  DATOTBASE 

FD  1*A 

01420 

06050 

5D505 

01401 

0  DATATBASE 

01421 

00000 

01520 

01402 

FD  0»D 

01422 

11050 

50505 

01403 

77777  WEAR 

01423 

77777 

05444 

01404  DATOMO 

FD  1  *  A 

01424 

06050 

50505 

01405 

0  OATAMO 

01425 

00000 

01524 

01406 

FD  0*D 

01426 

1  1 05D 

50505 

01407 

77777  VMONTH 

01427 

77777 

05446 

01410  DATODY 

FD  1  •  A 

01430 

0605D 

5D505 

01411 

0  DATADY 

01431 

00000 

01531 

01412 

FD  0*F 

01432 

13050 

50505 

014  13 

77777  VDAY 

01433 

77777 

05450 

01414  DATOSCHEO 

FD  1  •  A 

01434 

D6050 

5D505 

01415 

0  DATASCHED 

01435 

00000 

01537 

SCHEDULE  ■ 

to 

01416 

FD  0»D 

01436 

11050 

5D505 

014  17 

77777  DATASCHEDA 

01437 

77777 

01733 

01420  DATOOEC 

FD  1  •  A 

01440 

06050 

50505 

01421 

0  DATADEC 

01441 

00000 

01551 

DEC  * 

01422 

FD  0»F7 

01442 

13670 

50505 

01423 

77777  DECT 

01443 

77777 

05452 

01424  DATOK 

FD  1  *  A 

01444 

06050 

50505 

01425 

0  DATAK 

01445 

00000 

01555 

K  * 

01426 

FD  0*F7 

01446 

13670 

50505 

01427 

77777  KK 

01447 

77777 

05454 

01430  DATOLZERO 

FD  1  *  A 

01450 

06050 

50505 

01431 

0  DATALZERO 

01451 

00000 

01561 

SLAT 

01432 

FD  0»F7 

01452 

13670 

50505 

01433 

77777  LZERO 

01453 

77777 

05456 

01434  DATOALPHA 

FD  1  •  A 

01454 

06050 

50505 

01435 

0  OATAALPHA 

01455 

00000 

01566 

ALPHA  « 

01436 

FD  0*F7 

01456 

13670 

50505 

01437 

77777  ALPHB 

01457 

77777 

05460 

* 

01440  DATOLONG 

FO  1  •  A 

01460 

06050 

50505 

• 

01441 

0  DATALONG 

01461 

00000 

01572 

LONG  « 

• 

01442 

FD  0*F7 

01462 

13670 

50505 

01443 

77777  LONG 

01463 

77777 

05462 

01444  DATOMESA 

FD  1  •  A 

01464 

06050 

50505 

01445 

77777  DATAMESA 

01465 

77777 

01750 

• 

01446  DAT OMESB 

FD  1  •  A 

01466 

06050 

50505 

• 

01447 

77777  DATAMESB 

01467 

77777 

01756 

• 

01450  DATOERRA 

FD  1  •  A 

01470 

06050 

50505 

01451 

77777  DATOERRMA 

01471 

77777 

01735 

01452  OAT AA 

FD  O’ACE.R.)  « 

01472 

D65  1  1 

27527 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CAROS 

LI  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

01473 

75400 

50544 

• 

01453 

77777  77777 

01474 

77777 

77777 

• 

01454 

OATAE 

FO  0*E 

01475 

12050 

50505 

01476 

05050 

50544 

• 

01455 

77777  77777 

01477 

77777 

77777 

• 

01456 

OATAI 

FO  0«I 

01500 

16050 

50505 

01501 

05050 

50544 

01457 

77777  77777 

01502 

77777 

77777 

01460 

DATAW 

FO  O’OMEGA 

01503 

24221 

21406 

01504 

05050 

50544 

• 

01461 

77777  77777 

01505 

77777 

77777 

• 

01462 

DATAWDOT 

FO  0*0MEGA  OOT  • 

01506 

24221 

21406 

01507 

05112 

43105 

01510 

44050 

50505 

• 

01463 

77777  77777 

01511 

77777 

77777 

• 

01464 

DATARAM 

FO  0*DRAG0N 

01512 

11270 

61424 

01513 

23050 

50544 

• 

01465 

• 

77777  77777 

01514 

77777 

77777 

01466 

DATARAMDOT 

FO  0*0RAG0N00T« 

01515 

11270 

61424 

01516 

23112 

43144 

• 

01467 

77777  77777 

01517 

77777 

77777 

• 

01470 

OATATBASE 

FO  0*EP0CH  YEAR 

01520 

12252 

41015 

01521 

05050 

53612 

01522 

06270 

50505 

• 

01471 

77777  77777 

01523 

77777 

77777 

• 

01472 

DATAHO 

FO  0*  MONTH!  1-12) 

01524 

05050 

50505 

01525 

05050 

52224 

01526 

23311 

55161 

01527 

41616 

24005 

• 

01473 

77777  77777 

01530 

77777 

77777 

• 

01474 

OATAOY 

FO  0*  OAYIO. 000-31 

1.999) 

01531 

05050 

50505 

01532 

05050 

51106 

01533 

36512 

47524 

01534 

24244 

16361 

01535 

75717 

17140 

• 

01475 

77777  77777 

01536 

77777 

77777 

• 

01476 

DATASCHEO 

FO  0«FIXDEC<1)  SCANI2) 

F I XLONG ( 4 ) 

FIXRAI3) 

01537 

13163 

5)112 

01540 

10516 

14005 

01541 

05053 

01006 

01542 

23516 

24005 

01543 

05051 

31635 

01544 

27065 

16340 

01545 

05050 

51316 

01546 

35212 

42314 

01547 

51644 

00505 

* 

01477 

77777  77777 

01550 

77777 

77777 

• 

01500 

DATAOEC 

FO  0*0EC ( OEGREES )  - 

01551 

11121 

051  1  1 

01552 

12142 

71212 

01553 

30400 

54405 

• 

01501 

77777  77777 

01554 

77777 

77777 

# 

01502 

DATA* 

FO  0»PERI0D( MIN) ■ 

01555 

25122 

71624 

01556 

1  1512 

21623 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CARDS 

LI  10 

LABEL 

TA  STATEMENT 

01503 

77777  77777 

. 

01504 

OATALZERO 

FO  0«ARG  OF  LAT  C  OEGREES 1* 

01505 

77777 

77777 

• 

01506  OATAALPHA 

FO 

0»RA ( OEGREES 1  ■ 

01507 

77777 

77777 

. 

01510  OATALONS 

FO 

0* EAST  LONG! DEGREES)  « 

01511 

77777  77777 

01512  OATIA 

FO  1  •  F 

01513 

10  AA 

01514 

0  40001 

01515 

10000  0 

01516 

0  40005 

01517 

14400  00000 

01520  DAT I E 

FO  1»F 

01521 

10  EE 

01522 

0  0 

01523 

0  0 

01524 

0  40000 

01525 

16314  63146 

01526  OATH 

FO  1«F 

01527 

10  11 

01530 

40010 

01531 

64577  77777 

01532 

0  40010 

01533 

13200  0 

01534  OAT I W 

FO  1  •  F 

01535 

10  SOMEGA 

01536 

0  40011 

01537 

64577  77777 

01540 

0  4001) 

01541 

13200  0 

01542  OATIWOOT 

FO  1  •  F 

01543 

10  DOMEGA 

01544 

0  40011 

01545 

64577  77777 

01546 

0  40011 

01547 

13200  0 

01550  OATIRAM 

FO  1  *F 

01551 

10  SRAM 

01552 

0  40011 

01553 

64577  77777 

01554 

0  40011 

01555 

13200  0 

01556  DATIRAMOOT 

FO  1*F 

NOTES 


LOC 

F  JKB 

y 

01557 

40440 

50505 

01560 

77777 

77777 

01561 

06271 

40524 

01562 

13052 

10631 

01563 

511)1 

21427 

01564 

12123 

04044 

01565 

77777 

77777 

01566 

27065 

11112 

01567 

14271 

21230 

01570 

40054 

40505 

01571 

77777 

77777 

01572 

12063 

03105 

01573 

21242 

31451 

01574 

11121 

42712 

01575 

12304 

00544 

01576 

77777 

77777 

01577 

13050 

50505 

01600 

00010 

05426 

01601 

00000 

40001 

01602 

10000 

00000 

01603 

00000 

40005 

01604 

14400 

00000 

01605 

13050 

50505 

01606 

00010 

05430 

01607 

00000 

00000 

01610 

00000 

00000 

01611 

00000 

40000 

01612 

16314 

63146 

01613 

13050 

50505 

01614 

00010 

05432 

01615 

00000 

40010 

01616 

64577 

77777 

01617 

00000 

40010 

01620 

13200 

00000 

01621 

13050 

50505 

01622 

00010 

05434 

01623 

00000 

4001  1 

01624 

64577 

77777 

01625 

00000 

4001  1 

01626 

13200 

00000 

01627 

13050 

50505 

01630 

00010 

05436 

01631 

00000 

4001  1 

01632 

64577 

77777 

01633 

00000 

4001  1 

01634 

13200 

00000 

01635 

13050 

50505 

01636 

00010 

05440 

01637 

00000 

4001  1 

01640 

64577 

77777 

01641 

00000 

4001  1 

01642 

13200 

00000 

01643 

13050 

50505 

UPPER  LIMIT  «  25 


LOWER  LIMIT  «  0 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N#7/l/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

• 

01557 

10 

DRAM 

01644 

00010 

05442 

• 

01560 

0 

40007 

01645 

00000 

40007 

• 

01561 

64577 

77777 

01646 

64577 

77777 

• 

01562 

0 

40007 

01647 

00000 

40007 

• 

01563 

1320C 

0 

01650 

13200 

OOOOO 

• 

01564  OATITBASE 

FO 

0#0 

01651 

11050 

50505 

• 

01565 

10 

VYEAR 

01652 

00010 

05444 

• 

01566 

0 

3644 

01653 

00000 

03644 

• 

01567 

0 

3654 

01654 

00000 

03654 

• 

01570 

0 

0 

01655 

00000 

OOOOO 

« 

01571 

0 

0 

01656 

00000 

OOOOO 

• 

01572  OATIMO 

FO 

0*0 

01657 

11050 

50505 

• 

01573 

10 

VMONTH 

01660 

00010 

05446 

« 

01574 

0 

0 

01661 

00000 

OOOOO 

• 

01575 

0 

37 

01662 

00000 

00037 

* 

01576 

0 

0 

01663 

00000 

OOOOO 

• 

01577 

0 

0 

01664 

00000 

OOOOO 

• 

01600  DAT IDY 

FO 

0«F 

01665 

13050 

50505 

• 

01601 

10 

VDAY 

01666 

00010 

05450 

• 

01602 

0 

0 

01667 

00000 

OOOOO 

• 

01603 

0 

0 

01670 

00000 

OOOOO 

• 

0160* 

0 

40006 

01671 

00000 

40006 

01605 

1000C 

1  0 

01672 

10000 

OOOOO 

• 

01606  DAT ISCHED 

FO 

0#D 

016T3 

11050 

50505 

• 

01607 

0 

DATASCMEOA 

01674 

00000 

01733 

• 

01610  DATIDEC 

FO 

!*F 

01675 

13050 

50505 

• 

01611 

10 

DECT 

01676 

00010 

05452 

• 

01612 

0 

40011 

01677 

00000 

40011 

• 

01613 

64577 

77777 

01700 

64577 

77777 

• 

01614 

0 

40011 

01701 

00000 

4001  1 

• 

01615 

13200 

1  0 

01702 

13200 

OOOOO 

• 

01616  DATIK 

FO 

!*F 

01703 

13050 

50505 

« 

01617 

00 

KK 

01704 

00000 

05454 

+ 

01620 

0 

40007 

01705 

00000 

40007 

• 

01621 

64577 

77777 

01706 

64577 

77777 

• 

01622 

0 

40007 

01707 

00000 

40007 

• 

01623 

13200 

i  0 

01710 

13200 

OOOOO 

• 

01624  OATILZERO 

FO 

1  *F 

01711 

13050 

50505 

• 

01625 

10 

LZERO 

01712 

00010 

05456 

• 

01626 

0 

40011 

01713 

00000 

4001  1 

01627 

64577 

77777 

01714 

64577 

77777 

01630 

0 

40011 

01715 

00000 

40011 

• 

01631 

13200 

>  0 

01716 

13200 

OOOOO 

• 

01632  DAT I ALPHA 

FO 

l«F 

01717 

13050 

50505 

• 

01633 

10 

ALPHB 

01720 

00010 

05460 

• 

01634 

0 

40011 

01721 

OOOOO 

40011 

• 

01635 

64577 

77777 

01722 

64577 

77777 

• 

01636 

0 

4001 1 

01723 

OOOOO 

40011 

« 

01637 

13200 

1  0 

01724 

13200 

OOOOO 

01640  0AT1L0NG 

FO 

1*F 

01725 

13050 

50505 

01641 

10 

LONG 

01726 

00010 

05462 

01642 

0 

40011 

01727 

OOOOO 

4001  1 

01643 

64577 

77777 

01 730 

64577 

77777 

BELTP 


SPURT  OUTPUT  NO*  210 
P0NT0N*7/ 1/65 


CARDS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

01644 

0 

40011 

01731 

00000 

400 1  1 

• 

01645 

13200  0 

01732 

13200 

00000 

• 

01646  DATASCHEDA 

0 

0 

01733 

00000 

00000 

• 

01647 

77777  77777 

01734 

77777 

77777 

• 

01650  DATOERRMA 

FD 

0« SCHEDULE  INDICATOR  MUST  BE 

1,2,3,01735 

30101 

5121  1 

OR 

4.  REINPUT 

01736 

3221  1 

20516 

01737 

231  1  1 

61006 

01740 

31242 

70522 

01741 

32303 

10507 

01742 

12056 

15662 

01743 

56635 

60524 

01744 

27056 

47505 

01745 

27121 

62325 

01746 

32310 

50505 

• 

01651 

77777  77777 

01747 

77777 

77777 

• 

01652  DATAMESA 

FD 

0«BELT  REINITIALIZATION 

01750 

07122 

13105 

01751 

27121 

62316 

01752 

31160 

62116 

01753 

37063 

1  1624 

01754 

23050 

50505 

• 

01653 

77777  77777 

01755 

7777  7 

77777 

• 

01654  OATAMESB 

FD 

0*B6LT  INITIALIZATION 

01756 

07122 

13105 

01757 

16231 

63116 

01760 

06211 

63706 

01761 

31162 

42305 

• 

01655 

77777  77777 

01762 

77777 

77777 

• 

01656  0ATA99 

U-TAG  DATOAOATIA 

01763 

01364 

01577 

• 

01657  FI  XL AT  1 

ENTRY 

01764 

61000 

00000 

• 

01660 

STR 

B4*L(FXLT!XT+1> 

01765 

16410 

02313 

SAVE  I R-S 

• 

01661 

STR 

B5»L ( FXLT I XT ♦ 2 ) 

01766 

16510 

02314 

• 

01662 

STR 

B6*LIFXLTIXT*3) 

01767 

16610 

02315 

• 

01663 

STR 

BULCFXLTIXU4) 

01770 

161  10 

02316 

01664 

ENT 

0»W(DELTB+1) 

01771 

10030 

05453 

FRACTION 

• 

01665 

ENT 

A«L(OELTB) 

01772 

1  1010 

05452 

EXP  TO  A 

# 

01666 

RJP 

M0D2PI 

01773 

65000 

03752 

MAKE  NO  Mi 

• 

01667 

STR 

A»L ( DEL  TB ) 

01774 

15010 

05452 

• 

01670 

STR 

Q*W(DELTB*I) 

01775 

14030 

05453 

01671 

AOD 

Q*0»QP0S 

01776 

26600 

00000 

01672 

CP 

0» 

01777 

14000 

00000 

01673 

SUB 

A*4000 l * ANOT 

02000 

21500 

40001 

01674 

JP 

B1234XYZ 

02001 

61000 

02007 

• 

01675 

SUB 

A*2* AZERO 

02002 

21400 

00002 

• 

01676 

JP 

B1234X 

02003 

61000 

0201  1 

• 

01677 

SUB 

0*W(THFPI*1 )*ONOT 

02004 

27530 

06154 

01700 

JP 

FXLTIXU1 

02005 

61000 

02313 

• 

01701 

JP 

B1234X 

02006 

61000 

0201  1 

• 

01702  B1234XYZ 

SUB 

0»W(HFPU1UQN0T 

02007 

27530 

06151 

• 

01703 

JP 

FXLTIXU1 

02010 

61000 

02313 

• 

01704  BI234X 

NO-OP 

0201  1 

12000 

00000 

• 

01705 

ENT 

A*W{ IISIN+1UAN0T 

02012 

1  1530 

0554  1 

• 

01706 

JP 

FXLT I  XT* 1 

02013 

61000 

02313 

• 

01707 

ENT 

BUI 

02014 

12100 

00001 

.  SPURT  OUTPUT  NO.  210 

BELTP  P0NT0N*7/ 1/65 


CAROS  LI  10  LABEL  TA  STATEMENT 


vO 


01710 

ENT 

B4*DELTB 

01711 

ENT 

86*0ELTS I N 

01712 

ENT 

B7*  1 3 

01713 

RJP 

FLTPT 

01714 

COMMENT  CHECK 

01715  IIOECOM 

MOVE 

2* I I S I N* I ISINPOS 

01716  IIDEC0M1 

ENT 

BUO 

01717 

MOVE 

2*0ELT$IN*0ELTSINP0S 

01720 

ENT 

A*WC DELTS IN* 1 UANEG 

01721 

JP 

S*  3 

01722 

CP 

A* 

01723 

ENT 

BUB1-1 

01724 

STR 

A*W(DELTSINP0S*1> 

01725 

ENT 

A*W1 I I  SIN* 1  UANEG 

01726 

JP 

$♦3 

01727 

CP 

A* 

01730 

ENT 

B  UB  1*  1 

01731 

STR 

A*W( I ISINPOS* 1) 

01732 

ENT 

B4  *OELTS I NPOS 

01733 

ENT 

B5*I I S INPOS 

01734 

ENT 

B6*  I IDELTDIFF 

01735 

ENT 

B7*0  1 

01736 

RJP 

FLTPT 

01737 

ENT 

A*WI 1 IOELTOIFF*! )*AZERO 

01740 

JP 

GETLL 

01741 

ENT 

Q*W ( F  L  T  ONE* 1 ) 

01742 

ENT 

A*BUAZERO 

01743 

STR 

Q«CPW( LLSIN* 1 1 *SK I P 

01744 

STR 

Q*W  ( LL  S IN* 1 ) 

01745 

ENT 

A»W( FL  T  ONE ) 

01746 

STR 

A* W( LLSIN) 

01747 

JP 

GOTLL 

01750 

GETLL 

ENT 

84*0EL  TS I N 

01751 

ENT 

BUI 

01752 

ENT 

B5*I I  SIN 

01753 

ENT 

B6»LLSIN 

01754 

ENT 

B7  *03 

01755 

RJP 

FLTPT 

01756 

GOTLL 

ENT 

A*L <  LLSI N ) 

01757 

COM 

A*4000UYLESS 

01760 

JP 

FXLTI  1*2 

01761 

ENT 

0*77777 

01762 

COM 

MASK  *4000 l • AZERO 

01763 

JP 

FXLTI  l 

01764 

ENT 

A*W<LLSIN*1UAP0S 

01765 

CP 

A* 

NOTES 


LOC 

F  JKB 

Y 

02015 

12400 

05452 

02016 

12600 

05550 

02017 

12700 

00013 

02020 

65000 

06266 

02021 

10030 

05540 

02022 

14030 

05666 

02023 

10030 

0554  1 

02024 

14030 

05667 

02025 

12100 

00000 

02026 

10030 

05550 

02027 

14030 

05664 

02030 

10030 

05551 

02031 

14030 

05665 

02032 

11730 

05551 

02033 

61000 

02036 

02034 

15040 

00000 

02035 

12101 

77776 

02036 

15030 

05665 

02037 

1  1730 

0554  1 

02040 

61000 

02043 

02041 

15040 

00000 

02042 

12101 

00001 

02043 

15030 

05667 

02044 

12400 

05664 

02045 

12500 

05666 

02046 

12600 

0601  1 

02047 

12700 

00001 

02050 

65000 

06266 

02051 

11430 

06012 

02052 

61000 

02062 

02053 

10030 

06137 

02054 

1  1401 

00000 

0205S 

14170 

05623 

02056 

14030 

05623 

02057 

11030 

06136 

02060 

15030 

05622 

02061 

61000 

02070 

02062 

12400 

05550 

02063 

12100 

00001 

02064 

12500 

05540 

02065 

12600 

05622 

02066 

12700 

00003 

02067 

65000 

06266 

02070 

11010 

05622 

02071 

04600 

4  0001 

02072 

61000 

02113 

02073 

10000 

77777 

02074 

43400 

4  0001 

02075 

61000 

02111 

02076 

11630 

0562  3 

02077 

15040 

00000 

CALCULATE  DELTSIN 

IF  DELT  -  II  .  IF  SO  SET  SIN 
L  *  *  t  -  1 


DEL  TS IN/I 1S1N 

CHECK  LLSIN  LESS  OR  ■  I 
NO  WITHIN  LIMITS 

FRACTION  ♦  OR  - 


BELTP 


SPURT  OUTPUT  NO*  210 
P0NT0N*7/  1/65 


vO 

00 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

01766 

SUB 

A*W(FLT0NE*1 )*APOS 

02100 

21630 

06137 

01767 

JP 

FXLTI 1*2 

02101 

61000 

02113 

01770 

COM 

A*77*YM0RE 

02102 

04700 

00077 

01771 

JP 

FXLTI  1 

02103 

61000 

02111 

• 

01772 

ENT 

A*  W( FLTONE+ 1 ) 

02104 

1  1030 

06137 

# 

01773 

ENT 

Q*W(LLSIN+1 )*QNEG 

02105 

10330 

05623 

« 

01774 

STR 

A*W(LLSIN*1)*SKIP 

02  106 

15130 

05623 

• 

01775 

STR 

A*CPW(LLSIN*l ) 

02107 

15070 

05623 

01776 

JP 

$♦3 

02110 

61000 

02113 

YES 

01777  FXLTI 1 

ENT 

A*  1 

02111 

1 1000 

00001 

02000 

JP 

FXLTIXT+1 

02112 

61000 

02313 

ERROR  EXIT 

02001 

ENT 

84*LL$ IN 

02113 

12400 

05622 

GET  L 

y 

02002 

ENT 

B6*LL 

02114 

12600 

05707 

A 

X 

02003 

ENT 

87*17 

02115 

12700 

00017 

X 

02004 

R  JP 

FLTPT 

02116 

65000 

06266 

X 

02005 

ENT 

8  1*1 

02117 

12100 

00001 

02006 

ENT 

84*LLSIN 

02120 

12400 

05622 

CALCULATE  LLCOS 

• 

02007 

ENT 

85*LLS IN 

02121 

12500 

05622 

1.  GET  LLS I N  SQRO 

• 

02010 

ENT 

B6*LL$IN2 

02122 

12600 

05672 

• 

02011 

ENT 

87*02 

02123 

12700 

00002 

• 

02012 

R  JP 

FLTPT 

02124 

65000 

06266 

« 

02013 

ENT 

81*1 

02125 

12100 

00001 

• 

02014 

ENT 

B4*W0NE 

02126 

12400 

06136 

2.  GET  1-LLSIN2*LLSIN 

• 

02015 

ENT 

85*LLSIN2 

02127 

12500 

05672 

# 

02016 

ENT 

B6*LLSIN2 

02130 

12600 

05672 

• 

02017 

ENT 

87*01 

02131 

12700 

00001 

02020 

R  JP 

FLTPT 

02132 

65000 

06266 

02021 

ENT 

81*1 

02133 

12100 

00001 

• 

02022 

ENT 

84  *LL  S IN2 

02134 

12400 

05672 

3.  LLC0S*SQRT(LLSIN2) 

• 

02023 

ENT 

86*LLC0S 

02135 

12600 

05630 

• 

02024 

ENT 

87*12 

02136 

12700 

00012 

02025 

R  JP 

FLTPT 

02137 

65000 

06266 

02026 

PUT 

L ( LLS  IN) *L ( LL  1SIN) 

02140 

10010 

05622 

llsin-llisi'ni 

02141 

14010 

05624 

02027 

PUT 

W(LL$IN*1  )*W(LL1SIN*1 ) 

02142 

10030 

05623 

02143 

14030 

05625 

02030 

PUT 

L(  LL 1 S IN  1 *L ( LL2S I N ) 

02144 

10010 

05624 

LL1SIN-LL2SIN 

02145 

14010 

05626 

02031 

PUT 

W(LL1SIN*1)*W(LL2SIN*1> 

02146 

10030 

05625 

02147 

14030 

05627 

02032 

PUT 

L(LLCOS)*L(LL  1C0S ) 

02150 

10010 

05630 

LLC0S-LL1C0S 

02151 

14010 

05632 

02033 

PUT 

W(LLC0S*1  )*W(LL1C0SH) 

02152 

10030 

05631 

02153 

14030 

05633 

02034 

PUT 

L ( LL 1C0S ) *L( LL2C0S ) 

02154 

10010 

05632 

-LL1C0A-+LL2C0S 

02  155 

14010 

05634 

02035 

PUT 

W| LL 1C0S+  1  >*CPW(LL2C0S* 1 ) 

02156 

10030 

05633 

02157 

14070 

05635 

• 

02036 

ENT 

81*1 

02160 

12100 

00001 

• 

02037 

ENT 

B4*0ELTB 

02161 

12400 

05452 

calculate  deltcos 

• 

02040 

ENT 

86*DELTC0S 

02162 

12600 

05562 

• 

02041 

ENT 

B7*  14 

02163 

12700 

00014 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


vO 


CAROS 


LI  ID  LABEL  TA  STATEMENT 


02042 

RJP 

02043 

ENT 

02044 

ENT 

02045 

ENT 

02046 

ENT 

02047 

RJP 

02050 

ENT 

02051 

ENT 

02052 

ENT 

02053 

RJP 

02054 

PUT 

02055 

PUT 

02056 

PUT 

02057 

PUT 

02060 

RJP 

02061 

JP 

02062 

STR 

02063 

STR 

02064 

RJP 

02065 

JP 

02066 

STR 

02067 

STR 

02070 

PUT 

02071 

PUT 

02072 

PUT 

02073 

PUT 

02074 

RJP 

02075 

JP 

02076 

STR 

02077 

STR 

02100 

RJP 

02101 

JP 

02102 

STR 

02103 

STR 

02104 

PUT 

02105 

PUT 

02106 

PUT 

02107 

PUT 

02110 

PUT 

02111 

PUT 

FLTPT 
B  I  •  I 
B4*RAM 
86*RAMS IN 
87*13 
FLTPT 
8  1*1 

86*RAMC0S 

87*14 

FLTPT 

LI  LL 1C0S)*L(LLC0S) 

WILL1C0S*! ) • W I LLCOS* 1 ) 

LILL1SIN)*LILLSIN) 

WILL ISIN*1  )*WILLSIN*1  ) 

COSALF 
FXLT I  XT* I 
A*  L ( ALPH I  COS ) 

Q*Wt ALPH1C0S* I ) 

SINALF 
FXLTI XT* I 
A*L ( ALPH 1 S I N ) 

Q*WI  ALPH 1  S I N* I ) 

L ( LL2C0S ) *L ( LLCOS ) 

Wl LL2C0S* 1 ) *W I LLCOS* 1 1 

LI  LL2SIN)  *ULL$IN) 

Wl LL2S IN*  1  ) *W I LLS IN* 1  ) 

COSALF 

FXLTIXT*! 

A*L( ALPH2C0S) 

Q*WI ALPH2C0S* 1 ) 

SINALF 
FXLTI XT* I 
A*L I ALPH2  SIN) 

Q*W| ALPH2SIN* I ) 

LI DELTCOS ) *L I DELT I COS) 

LIDELTCOS )*L<  0ELT2C0S ) 

W I DELTCOS* 1)«W< DELT 1  COS* 1) 

W I DELTCOS* I ) • W ( OEL  T2C0S* 1 ) 

LIDELTSIN)*LIDELTISIN) 

L(DELT$IN)*LIDELT2SIN) 


LOC 

F  JKB 

Y 

02164 

65000 

06266 

02165 

12100 

00001 

02  166 

12400 

05727 

02167 

12600 

05544 

02170 

12700 

00013 

02171 

65000 

06266 

02172 

12100 

00001 

02173 

12600 

05546 

02174 

12700 

00014 

02175 

65000 

06266 

02176 

10010 

05632 

02177 

14010 

05630 

02200 

10030 

05633 

02201 

14030 

05631 

02202 

10010 

05624 

02203 

14010 

05622 

02204 

10030 

05625 

02205 

14030 

05623 

02206 

65000 

04556 

02207 

61000 

02313 

02210 

15010 

05610 

0221  1 

14030 

0561  1 

02212 

65000 

04317 

02213 

61000 

02313 

022  14 

15010 

05576 

02215 

14030 

05577 

02216 

10010 

05634 

022  17 

14010 

05630 

02220 

10030 

05635 

02221 

14030 

05631 

02222 

10010 

05626 

02223 

14010 

05622 

02224 

10030 

05627 

02225 

14030 

05623 

02226 

65000 

04556 

02227 

61000 

02313 

02230 

15010 

05612 

02231 

14030 

05613 

02232 

65000 

04317 

02233 

61000 

0231  3 

02234 

15010 

05600 

02235 

14030 

05601 

02236 

10010 

05562 

02237 

14010 

05564 

02240 

10010 

05562 

02241 

14010 

05566 

02242 

10030 

05563 

02243 

14030 

05565 

02244 

10030 

05563 

02245 

14030 

05567 

02246 

10010 

05550 

02247 

14010 

05552 

02250 

10010 

05550 

SOT  ES 

GET  RAMSIN 

GET  RAMCOS 

COSL*COSL 1 

ERROR  EXIT 

ERROR  EXIT 

COSl*COSL  2 

S INL*S I NL  2 

ERROR  EXIT 

ERROR  EXIT 

C0SD1*C0SD2*C0S0 

SIND1*SIND2=SIND 


001 


8ELTP 


SPURT  OUTPUT  NO. 

P0NT0N*7/ 


cards 


LI  ID  LABEL  TA  STATEMENT 


02112 

PUT 

W( 0ELTSIN*1)*W(0ELT1SIN*1) 

02  113 

PUT 

W(0ELTSIN*1)*W(0ELT2SIN*1  ) 

02  114 

PUT 

2*  W( NUMPT ) 

02115 

RJP 

PTSEL 

021  16 

JP 

FXLTIXT* 1 

02117 

COM 

ANYMORE 

02120 

JP 

FXLTI2 

02121 

PUT 

L(LLlCOS)*L(LLCOS) 

02122 

PUT 

W(LL1C0S*1)*W(LLC0S*1  ) 

02123 

PUT 

L(LL1SIN)*L(LLSIN) 

02124 

PUT 

WCLL1SIN*  1)*W(LLSIN*1 1 

02125 

JP 

FXLTIXT 

02126 

FXLTI2 

PUT 

L ( LL2C0S) *L ( LLCOS ) 

02127 

PUT 

W ( LL2C0S* 1  )*W(LLC0S*1) 

02  130 

PUT 

L( LL2S IN) *L ( LLSIN 1 

02131 

PUT 

W1LL2SIN*  1)*W(LLSIN*1 ) 

02132 

ENT 

B4*BELPI XX 

02133 

ENT 

B5*LL 

02134 

ENT 

B6*LL 

02  135 

ENT 

87*01 

02136 

RJP 

FLTPT 

02137 

FXLTIXT 

RPL 

Y*  1*L ( FIXLATI 1 

02140 

ENT 

84  *N I L 

02  14  1 

ENT 

B5*NIL 

02142 

ENT 

B6*NIL 

02143 

ENT 

8 1 *NIL 

02144 

EXIT 

02145 

FIXLAT 

ENTRY 

02146 

STR 

84  *L( FXLT  XT* 1 > 

02147 

STR 

B5*L(FXLTXT*2) 

02150 

STR 

B6*L ( FXLTXT*3 ) 

02151 

STR 

8  1  *L ( F  XLTXT*4 ) 

02152 

ENT 

81*1 

02  153 

ENT 

84. RAM 

02154 

ENT 

86  *RAMCOS 

02  155 

ENT 

B7  •  1 4 

02156 

RJP 

FLTPT 

02157 

ENT 

81*1 

02160 

ENT 

86*R AM  S IN 

02161 

ENT 

B7*  1  3 

02162 

RJP 

FLTPT 

LOC 

F  JKB 

Y 

NOTES 

02251 

14010 

05554 

02252 

10030 

05551 

02253 

14030 

05553 

02254 

10030 

05551 

02255 

14030 

05555 

02256 

10000 

00002 

NUMPT  *2 

02257 

14030 

05700 

02260 

65000 

05004 

02261 

61000 

02313 

ERROR  EXIT 

02262 

04700 

00002 

02263 

61000 

02275 

02264 

10010 

05632 

A*  1 

02265 

14010 

05630 

02266 

10030 

05633 

COSL*COSL 1 

02267 

14030 

05631 

02270 

10010 

05624 

02271 

14010 

05622 

02272 

10030 

05625 

S I NL*SI NL 1 

02273 

14030 

05623 

02274 

61000 

02312 

02275 

10010 

05634 

A-2 

02276 

14010 

05630 

02277 

10030 

05635 

C0SL»C0SL2 

02300 

14030 

05631 

02301 

10010 

05626 

02302 

14010 

05622 

02303 

10030 

0562  7 

SINL-SINL2 

02304 

14030 

05623 

02305 

12400 

06175 

L-P I-L 

02306 

12500 

05707 

02307 

12600 

05707 

02310 

12700 

00001 

02311 

65000 

06266 

02312 

36010 

01764 

02313 

12400 

00000 

RESTORE  IR-S 

02314 

12500 

00000 

02315 

12600 

00000 

02316 

12100 

00000 

02317 

61010 

01764 

NORMAL  EXIT 

02320 

61000 

00000 

02321 

16410 

02371 

SAVE  IR-S 

02322 

16510 

02372 

02323 

16610 

02373 

02324 

16110 

02374 

02325 

12100 

00001 

02326 

12400 

05727 

GET  RAMCOS 

02327 

12600 

05546 

02330 

12700 

00014 

02331 

65000 

06266 

02332 

12100 

00001 

02333 

12600 

05544 

GET  RAMSIN 

02334 

12700 

00013 

02335 

65000 

06266 

BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*?/ 1/65 


CARDS 

Li  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

02163 

RJP 

ALPHA 

02336 

65000 

04325 

GET  ALPHA 

02164 

JP 

FXLTXT*! 

02337 

61000 

02371 

ERROR  EXIT 

02165 

STR 

A#L( ALPH8I 

02340 

15010 

05460 

02166 

STR 

Q*W( ALPHB* 1 J 

02341 

14030 

05461 

02167 

RJP 

COSALF 

02342 

65000 

04556 

GET  ALPHCOS 

02170 

JP 

FXLTXT* 1 

02343 

61000 

02371 

ERROR  RETURN 

02171 

STR 

A*L< ALPHC0S1 

02344 

15010 

05606 

02  172 

STR 

0*W( ALPHCOS*! 1 »QNEG 

02345 

14330 

05607 

ALPHCOS  LESS  IERO 

02173 

JP 

FXLT1 

02346 

61000 

02355 

NO 

02174 

ENT 

Bl«l 

02347 

12100 

0000! 

02175 

ENT 

B4*P  I 

02350 

12400 

06175 

YES  -  ALPHB  *P I -ALPHB 

02176 

ENT 

B5*ALPH8 

02351 

12500 

05460 

02177 

ENT 

B6»ALPH8 

02352 

12600 

05460 

02200 

ENT 

B7  *0  1 

02353 

12700 

OOOOI 

02201 

RJP 

FLTPT 

02354 

65000 

06266 

02202  FXLT1 

RJP 

8RANGE 

02355 

65000 

04463 

02203 

JP 

FXLTXT*! 

02356 

61000 

02371 

ERROR  RETURN 

02204 

STR 

A*L  C  RANGE  B1 

02357 

15010 

05731 

02205 

STR 

Q*W( RANGEB* 1 1 

02360 

14030 

05732 

02206 

ENT 

A*W( ALPHB* 1 1 • ANEG 

02361 

1  1730 

05461 

02207 

JP 

S*6 

02362 

61000 

02370 

02210 

ENT 

B4«ALPH8 

02363 

12400 

05460 

022  1  1 

ENT 

B5*TT WP 1 

02364 

12500 

06165 

02212 

ENT 

B6*ALPHB 

02365 

12600 

05460 

02213 

ENT 

B7  *00 

02366 

12700 

00000 

02214 

RJP 

FLTPT 

02367 

65000 

06266 

02215  FXLTXT 

RPL 

Y*  ULIFIXLATl 

02370 

36010 

02320 

NORMAL  RETURN 

• 

02216 

ENT 

B4  *NI L 

02371 

12400 

00000 

RESTORE  IA-S 

* 

02217 

ENT 

B5*NI L 

02372 

12500 

00000 

• 

02220 

ENT 

B6*N I L 

02373 

12600 

00000 

02221 

ENT 

Bl *NIL 

02374 

12100 

00000 

02222 

EXIT 

02375 

61010 

02320 

02223  FIXRATI 

ENTRY 

02376 

61000 

00000 

02224 

STR 

B4  »L ( FXRT I  XT*  1  1 

02377 

16410 

02545 

SAVE  IR-S 

02225 

STR 

B4»L  <  FXRT IXT*2) 

02400 

16410 

02546 

02226 

STR 

B6«LIFXRTIXT*31 

02401 

16610 

02547 

02227 

STR 

B 1 »L ( FXRT  IXT*4 ) 

02402 

161  10 

02550 

02230 

ENT 

B  1  *  1 

02403 

12100 

00001 

02231 

ENT 

B4  *FL  TONE 

02404 

12400 

06136 

• 

02232 

ENT 

B5*K< 

02405 

12500 

05454 

• 

02233 

ENT 

B6»0LLB 

02406 

12600 

05715 

• 

02234 

ENT 

B7  *03 

02407 

12700 

00003 

02235 

RJP 

FLTPT 

024  10 

65000 

06266 

• 

02236 

ENT 

A*L(LL  1 1 

02411 

1  1010 

05456 

GET  LI  HOO  2PI 

• 

02237 

ENT 

0*  W ( LL 1*1 1 

02412 

10030 

05457 

• 

02240 

RJP 

M002PI 

024  13 

65000 

03752 

0224  1 

STR 

A*L ( LL  1  ) 

024  14 

15010 

05456 

02242 

STR 

Q* WC  LL 1* 1 ) 

02415 

14030 

05457 

02243 

STR 

A*L<LL) 

02416 

15010 

05707 

02244 

STR 

0* W ( LL ♦ 1 ) 

024  17 

14030 

05710 

02245 

HOVE 

2»LL*LL!LAST 

02420 

10030 

05707 

LLAST-L 

02421 

14030 

0571  1 

02422 

10030 

05710 

BELTP 


SPURT  OUTPUT  NO.  210 
PONT  ON*  7 / 1 /65 


CARDS 


U  10  LABEL  TA  STATEMENT 


02246 

MOVE 

2*LL  1  *LL2LAST 

02247 

ENT 

81*1 

02250 

ENT 

84  *LL 

02251 

ENT 

86*  LLS I N 

02252 

ENT 

87*13 

02253 

RJP 

FLTPT 

02254 

ENT 

B  1  •  1 

02255 

ENT 

B6*LLC0S 

02256 

ENT 

87*14 

02257 

RJP 

FLTPT 

02260 

ENT 

B  1  •  1 

02261 

ENT 

84* I I S I N 

02262 

ENT 

B5*LLSIN 

02263 

ENT 

B6*0ELTSIN 

02264 

ENT 

87*02 

02265 

RJP 

FLTPT 

02266 

ENT 

81*1 

02267 

ENT 

B4*DELTSIN 

02270 

ENT 

B5*0EL  TS I N 

02271 

ENT 

B6*T  I MTP 

02272 

ENT 

87*02 

02273 

RJP 

FLTPT 

02274 

ENT 

B  1  •  1 

02275 

ENT 

B4*W0NE 

02276 

ENT 

B5*T I MTP 

02277 

ENT 

B6*T I MTP 

02300 

ENT 

87*01 

02301 

RJP 

FLTPT 

02302 

ENT 

B  1  •  1 

02303 

ENT 

B4  *T IMTP 

02304 

ENT 

B6*0EL  TCOS 

02305 

ENT 

B7*  12 

02306 

RJP 

FLTPT 

02307 

ENT 

B  1  •  1 

02310 

ENT 

B4*RAM 

02311 

ENT 

B6*RAMC0S 

02312 

ENT 

87*14 

02313 

RJP 

FLTPT 

02314 

ENT 

81*1 

02315 

ENT 

86*RAMSIN 

02316 

ENT 

B7*  1 3 

02317 

RJP 

FLTPT 

02320 

MOVE 

2*0ELTSIN*0ELT1SIN 

02321 

MOVE 

2*0ELTSIN*0ELT2SIN 

LOC 

F  JK8 

Y 

02423 

14030 

05712 

02424 

10030 

05456 

02425 

14030 

05713 

02426 

10030 

05457 

02427 

14030 

05714 

02430 

12100 

00001 

02431 

12400 

05707 

02432 

12600 

05622 

02433 

12700 

00013 

02434 

65000 

06266 

02435 

12100 

00001 

02436 

12600 

05630 

02437 

12700 

00014 

02440 

65000 

06266 

02441 

12100 

00001 

02442 

12400 

05540 

02443 

12500 

05622 

02444 

12600 

05550 

02445 

12700 

00002 

02446 

65000 

06266 

02447 

12100 

00001 

02450 

12400 

05550 

02451 

12500 

05550 

02452 

12600 

06234 

02453 

12700 

00002 

02454 

65000 

06266 

02455 

12100 

00001 

02456 

12400 

06136 

02457 

12500 

06234 

02460 

12600 

06234 

02461 

12700 

00001 

02462 

65000 

06266 

02463 

12100 

0000  1 

02464 

12400 

06234 

02465 

12600 

05562 

02466 

12700 

00012 

02467 

65000 

06266 

02470 

12100 

00001 

02471 

12400 

05727 

02472 

12600 

05546 

02473 

12700 

00014 

02474 

65000 

06266 

02475 

12100 

00001 

02476 

12600 

05544 

02477 

12700 

00013 

02500 

65000 

06266 

02501 

10030 

05550 

02502 

14030 

05552 

02503 

10030 

05551 

02504 

14030 

05553 

02505 

10030 

05550 

02506 

14030 

05554 

02507 

10030 

05551 

NOTES 

L2NDL  AST*L 1 

GET  SINL 

GET  COS 

GET  SIND 
■ISIN(LSIN) 

GET  OELTCOS 
l.SIND(SINO)*TIHTP 

2. 1-T  I  HTP*T IMTP 

3. SORT! TIMTP1-DELTC0S 

GET  RAMCOS 

GET  RAMSIN 

S I ND*S I ND 1 

S I NO«S I ND2 


4 


V 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N»7/  1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

02510 

14030 

05555 

02322 

MOVE 

2*0ELTC0S*0ELT 1C0S 

0251  1 

10030 

05562 

C0SD-C0S01 

025  12 

14030 

05564 

02513 

10030 

05563 

02514 

14030 

05565 

02323 

MOVE 

1 •0ELTC0S*DELT2C0S 

02515 

10030 

05562 

02516 

14030 

05566 

02324 

PUT 

W( DELTCOS* 1  )*CPW(0ELT2C0S*1  1 

02517 

10030 

05563 

02520 

14070 

05567 

02325 

RJP 

COSALF 

02521 

65000 

04556 

GET  ALPHC0S1 

02326 

JP 

FXRT I  XT* 1 

02522 

61000 

02545 

ERROR  RETURN 

02327 

$TR 

A^L(ALPHICOS) •QPOS 

02523 

15210 

05610 

02330 

STR 

Q*CPW< ALPH1C0S*1)*SKIP 

02524 

14170 

0561  1 

02331 

STR 

Q*W( ALPH1 COS* 1 ) 

02525 

14030 

0561  1 

02332 

RJP 

SINALF 

02526 

65000 

04317 

GET  SINAI 

02333 

JP 

FXRTIXT** 

02527 

61000 

02545 

ERROR  RETURN 

02334 

STR 

A«L( ALPH1 SIN) 

02530 

15010 

05576 

02335 

STR 

Q»W(ALPH1SIN*  1  ) 

02531 

14030 

05577 

• 

02336 

MOVE 

2*ALPH1SIN»ALPH2SIN 

02532 

10030 

05576 

02533 

14030 

05600 

02534 

10030 

05577 

02535 

14030 

05601 

• 

02337 

PUT 

W< ALPH1C0S)*W(ALPH2C0S) 

02536 

10030 

05610 

02537 

14030 

05612 

• 

02340 

PUT 

W( ALPH2C0S* 1 )*CPW(ALPH2C0S*1 1 

02540 

10030 

05613 

02541 

14070 

05613 

02341 

PUT 

2*W( NUMPT ) 

02542 

10000 

00002 

NUMPT  »2 

02543 

14030 

05700 

02342  FXRTIXT 

RPL 

Y*  1*L 1 F l XRAT I 1 

02544 

36010 

02376 

NORMAL  EXIT 

02343 

ENT 

B4*N IL 

02545 

12400 

00000 

RESTORE  IR-S 

• 

02344 

ENT 

B5*NI L 

02546 

12500 

00000 

# 

02345 

ENT 

B6»NI L 

02547 

12600 

00000 

• 

02346 

ENT 

B 1 *N I L 

02550 

12100 

00000 

02347 

EXIT 

02551 

61010 

02376 

• 

02350  FIXRATE 

ENTRY 

02552 

61000 

00000 

• 

02351 

STR 

B4*L ( F  XRTXT* 1 ) 

02553 

16410 

02744 

SAVE  IR-S 

• 

02352 

STR 

B5»L ( FXRTXT*2 ) 

02554 

16510 

02745 

02353 

STR 

B6»HFXRTXT*3) 

02555 

16610 

02746 

02354 

STR 

8 1 *L  (  F  XRTXT*4 ) 

02556 

16110 

02747 

02355 

ENT 

A*  W( NCOOE 1 *AN0T 

02557 

11530 

05703 

02356 

JP 

FXRT20 

02560 

61000 

02667 

02357 

ENT 

A»W( ELEV ) *ANEG 

02561 

11730 

63054 

REVERSE  DIRECTION 

• 

02  360 

JP 

FXRT1 

02562 

61000 

02612 

NO 

# 

02361 

ENT 

A»  W<  UNDE ARTHSW) *APOS 

02563 

11630 

05677 

MAYB-OONE  LAST  TIME 

• 

02362 

JP 

FXRT 1 ♦  1 

02564 

61000 

02613 

YES 

02  363 

CP 

A* 

02565 

15040 

00000 

X 

02364 

STR 

A*W( U NOE ARTHSW) 

02566 

15030 

05677 

02365 

ENT 

A*W(OLLB*U 

02567 

1  1030 

05716 

NO 

02366 

STR 

A»CPW ( OLLB* 1 3 

02570 

15070 

05716 

OL/OT  -  -OL/OT  REVERSE  OIRECT 
ION 

02367 

ENT 

B  1  •  * 

02571 

12100 

00001 

02370 

ENT 

B4«T I  ME 

02572 

12400 

05466 

CALC  NEW  LL 

BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*?/ 1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

02371 

ENT 

B5*TIME 1LAST 

02573 

12500 

05520 

• 

02372 

ENT 

B6*LL 

02574 

12600 

05707 

• 

02  373 

ENT 

B7*0 1 

02575 

12700 

00001 

• 

02374 

RJP 

FLTPT 

02576 

65000 

06266 

• 

02375 

ENT 

BUI 

02577 

12100 

00001 

# 

02376 

ENT 

B4*0LLB 

02600 

12400 

05715 

2.L-0L/0T1U 

• 

02377 

ENT 

B5*LL 

02601 

12500 

05707 

02400 

ENT 

B7«02 

02602 

12700 

00002 

02401 

RJP 

FLTPT 

02603 

65000 

06266 

02402 

ENT 

BUI 

02604 

12100 

OOOOI 

02403 

ENT 

B4  *LL 1LAST 

02605 

12400 

0571  1 

• 

02404 

ENT 

B5*LL 

02606 

12500 

05707 

• 

02405 

ENT 

B7«00 

02607 

12700 

00000 

• 

02406 

RJP 

FLTPT 

02610 

65000 

06266 

NOW  HAVE  ACTUAL  LL 

• 

02407 

JP 

FXRT12X 

02611 

61000 

02633 

• 

02410  FXRT1 

CL 

W(UNOEARTHSW) 

02612 

16030 

05677 

RESET  SWITCH 

• 

024  11 

ENT 

B4.TIME 

02613 

12400 

05466 

01 REC T ION  CORRECT  PROCEED 

• 

02412 

ENT 

BUI 

02614 

12100 

00001 

• 

02413 

ENT 

B5*TI ME 1LAST 

02615 

12500 

05520 

NEW  L 

• 

02414 

ENT 

B6*LL 

02616 

12600 

05707 

1.L-T-TLAST 

• 

02415 

ENT 

B7  *0 1 

02617 

12700 

00001 

• 

024  16 

RJP 

FLTPT 

02620 

65000 

06266 

• 

02417 

ENT 

BUI 

02621 

12100 

00001 

• 

02420 

ENT 

B4*LL 

02622 

12400 

05707 

2.L-UDL/DT) 

# 

02421 

ENT 

B5*DLLB 

02623 

12500 

05715 

• 

02422 

ENT 

B7*02 

02624 

12700 

00002 

• 

02423 

RJP 

FLTPT 

02625 

65000 

06266 

• 

02424 

ENT 

BUI 

02626 

12100 

00001 

m 

02425 

ENT 

B4  *LL  l  LAS T 

02627 

12400 

05711 

3.L-LLASUL 

• 

02426 

ENT 

B5«LL 

02630 

12500 

05707 

# 

02427 

ENT 

B7  *00 

02631 

12700 

00000 

# 

02430 

RJP 

FLTPT 

02632 

65000 

06266 

HAVE  ACTUAL  LL 

• 

02431  FXRT12X 

MOVE 

2*LL1LAST*LL2LAST 

02633 

10030 

0571  1 

02634 

14030 

05713 

02635 

10030 

05712 

02636 

14030 

05714 

• 

02432  FXRT2 

ENT 

A*L  C  LL ) 

02637 

11010 

05707 

MAKE  L  MOO  2PI 

# 

02433 

ENT 

Q*W(LL*U 

02640 

10030 

05710 

• 

02434 

RJP 

M002P I 

02641 

65000 

03752 

• 

02435 

STR 

A*L(LL> 

02642 

15010 

05707 

• 

02436 

STR 

Q*W(LL+1) 

02643 

14030 

05710 

• 

02437 

MOVE 

2*LL»LL 1LAST 

02644 

10030 

05707 

LL*LL AST 

02645 

14030 

05711 

02646 

10030 

05710 

02647 

14030 

05712 

• 

02440 

ENT 

BUI 

02650 

12100 

00001 

• 

02441 

ENT 

B4*LL 

02651 

12400 

05707 

GET  SINL 

• 

02442 

ENT 

B6*LLSIN 

02652 

12600 

05622 

• 

02443 

ENT 

B7*  13 

02653 

12700 

00013 

• 

02444 

RJP 

FLTPT 

02654 

65000 

06266 

• 

02445 

ENT 

BUI 

02655 

12100 

00001 

• 

02446 

ENT 

B6*LLC0S 

02656 

12600 

05630 

GET  COSL 

• 

02447 

ENT 

B7  •  14 

02657 

12700 

00014 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


O 

Cn 


CARDS 


LI  10  LABEL  TA  STATEMENT 


02450 

RJP 

FLTPT 

02451 

ENT 

BUI 

02452 

ENT 

B4«LLSIN 

02453 

ENT 

B5*I I S IN 

024  54 

ENT 

B6*DELTSI N 

02455 

ENT 

B7  *02 

02456 

RJP 

FLTPT 

02457 

FXRT20 

ENT 

BUI 

02460 

ENT 

B4*0ELTS1N 

02461 

ENT 

B6*DELTB 

02462 

ENT 

87*17 

02463 

RJP 

FLTPT 

02464 

FXRT3 

ENT 

B4*DELTB 

02465 

ENT 

BUI 

02466 

ENT 

B6*DELTC0S 

02467 

ENT 

B7*  14 

02470 

RJP 

FLTPT 

02471 

ENT 

BUI 

02472 

ENT 

B4*RAH 

02473 

ENT 

B6»RAMS!N 

02474 

ENT 

B7*  1 3 

02475 

RJP 

FLTPT 

02476 

ENT 

BUI 

02477 

ENT 

B6*RAMC0S 

02500 

ENT 

B7*  14 

02501 

RJP 

FLTPT 

02502 

RJP 

ALPHA 

02503 

JP 

FXRTXT* 1 

02504 

STR 

A*L( ALPHB ) 

02505 

STR 

Q*W(ALPH8*1 UQNEG 

02506 

JP 

FXRT4XX 

02507 

ENT 

B4»ALPHB 

02510 

ENT 

B5*TTHPI 

0251  1 

ENT 

B6*ALPHB 

02512 

ENT 

B7*00 

02513 

RJP 

FLTPT 

02514 

FXRT4XX 

RJP 

COSALF 

02515 

JP 

FXRTXT* 1 

02516 

STR 

A*L ( ALPHCOS 1 

02517 

STR 

0*W( ALPHCOS* 1 ) *0NEG 

02520 

JP 

FXRT4 

02521 

ENT 

BUI 

02522 

ENT 

B4*PI 

02523 

ENT 

B5*ALPHB 

02524 

ENT 

B6»ALPHB 

02525 

ENT 

B7  *0 1 

02526 

RJP 

FLTPT 

02527 

FXRT4 

RJP 

BRANGE 

02530 

JP 

FXRTXT ♦  1 

02531 

STR 

A*L<  RANGEB) 

02532 

STR 

0*W<  RANGES* 1 1 

02533 

FXRTXT 

RPL 

Y*  ULCFIXRATE) 

02534 

ENT 

B4*NIL 

LOC 

F  JKB 

Y 

NOTES 

02660 

65000 

06266 

02661 

12100 

0000  1 

02662 

12400 

05622 

GET 

SINO-SINL(S!N! ) 

02663 

12500 

05540 

02664 

12600 

05550 

02665 

12700 

00002 

02666 

65000 

06266 

02667 

12100 

00001 

02670 

12400 

05550 

GET 

OELTB-ARCSINCDLTBSIN) 

02671 

12600 

05452 

02672 

12700 

00017 

02673 

65000 

06266 

02674 

12400 

05452 

GET 

DELTCOS 

02675 

12100 

00001 

02676 

12600 

05562 

02677 

12700 

00014 

02700 

65000 

06266 

GET 

RAH  HOO  2PI 

02701 

12100 

00001 

02702 

12400 

05727 

GET 

SINRAH 

02703 

12600 

05544 

02704 

12700 

00013 

02705 

65000 

06266 

02706 

12100 

00001 

02707 

12600 

05546 

GET 

COSRAM 

02710 

12700 

00014 

02711 

65000 

06266 

02712 

65000 

04325 

GET 

ALPHAS 

02713 

61000 

02744 

ERROR  RETURN 

02714 

15010 

05460 

02715 

14330 

05461 

02716 

61000 

02724 

02717 

12400 

05460 

02720 

12500 

06165 

02721 

12600 

05460 

02722 

12700 

00000 

02723 

65000 

06266 

02724 

65000 

04556 

02725 

61000 

02744 

ERROR  RETURN 

02726 

15010 

05606 

02727 

14330 

05607 

02730 

61000 

02737 

COS 

PLUS  CONT 

02731 

12100 

00001 

02732 

12400 

06175 

FIX 

ALPHA 

02733 

12500 

05460 

ALF< 

■PI-ALF 

02734 

12600 

05460 

02735 

12700 

00001 

02736 

65000 

06266 

02737 

65000 

04463 

02740 

61000 

02744 

ERROR  RETURN 

02741 

15010 

05731 

02742 

14030 

05732 

02743 

36010 

02552 

02744 

12400 

00000 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N»7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

02535 

ENT 

B5»N I L 

02745 

12500 

00000 

02536 

ENT 

B6«NIL 

02746 

12600 

00000 

02537 

ENT 

BUNIL 

02747 

12100 

00000 

02540 

EXIT 

02750 

61010 

02552 

02541  EIXRAI 

ENTRY 

02751 

61000 

00000 

02542 

STR 

B4*L(FXRAIXT*1) 

02752 

16410 

03053 

02543 

STR 

B5«L( FXRA I XT* 2) 

02753 

16510 

03054 

02544 

STR 

B6»L ( FXRA IXT+3 ) 

02754 

16610 

03055 

02545 

STR 

BUL<FXRAIXT*4) 

02755 

16110 

03056 

02546 

ENT 

BUI 

02756 

12100 

00001 

02547 

ENT 

B4*RAM 

02757 

12400 

05727 

GET  RAMSIN 

02550 

ENT 

B6»R AMS  IN 

02760 

12600 

05544 

• 

02551 

ENT 

B7«  1 3 

02761 

12700 

00013 

• 

02552 

RJP 

fltpt 

02762 

65000 

06266 

• 

02553 

ENT 

BUI 

02763 

12100 

00001 

02554 

ENT 

B6»R AMCOS 

02764 

12600 

05546 

GET  RAMCOS 

02555 

ENT 

B7»  1  4 

02765 

12700 

00014 

• 

02556 

RJP 

FLTPT 

02766 

65000 

06266 

• 

02557 

ENT 

Q»W(ALPHB«*1  UQNEG 

02767 

10330 

05461 

IS  RA  NEG 

• 

02560 

JP 

$♦7 

02770 

61000 

02777 

NO  CONTINUE 

02561 

ENT 

B4*ALPHB 

02771 

12400 

05460 

YES  ADO  360  DEG 

02562 

ENT 

B5«TT WP I 

02772 

12500 

06165 

• 

02563 

ENT 

B6*B4 

02773 

12604 

00000 

• 

02564 

ENT 

B7«00 

02774 

12700 

00000 

• 

02565 

RJP 

FLTPT 

02775 

65000 

06266 

02566 

ENT 

0*W(ALPHB+1) 

02776 

10030 

05461 

02567 

ENT 

A*L( ALPHB ) 

02777 

11010 

05460 

MAKE  ALPHA  M00-2PI 

02570 

RJP 

M0D2PI 

03000 

65000 

03752 

02571 

STR 

A*L( ALPHB) 

03001 

15010 

05460 

• 

02572 

STR 

Q*W(ALPHB*1) 

03002 

14030 

0546  1 

• 

02573 

ENT 

BUI 

03003 

12100 

00001 

• 

02574 

ENT 

B4« ALPHB 

03004 

12400 

05460 

GET  SINA 

02575 

ENT 

B6-ALPHSIN 

03005 

12600 

05574 

02576 

ENT 

B7»  1 3 

03006 

12700 

00013 

02577 

RJP 

FLTPT 

03007 

65000 

06266 

• 

02600 

ENT 

BUI 

03010 

V2100 

00001 

• 

02601 

ENT 

B6«ALPHC0S 

0301  1 

12600 

05606 

GET  COSA 

• 

02602 

ENT 

B7*14 

03012 

12700 

00014 

02603 

RJP 

FLTPT 

03013 

65000 

06266 

02604 

ENT 

A»L ( ALPHS IN ) 

03014 

1  1010 

05574 

YES-CHECK  ACTUAL 

• 

02605 

SUB 

A«L ( ALPHCOS ) 

03015 

21010 

05606 

VALUE  OF  TAN  EXP 

• 

02606 

COM 

A*270*YLESS 

03016 

04600 

00033 

• 

02607 

JP 

FXRA I 4 

03017 

61000 

03023 

USE  LONG  CALC  OF  L 

02610 

PUT 

UW(  ALPHASW) 

03020 

10000 

00001 

ASW*  1 

03021 

14030 

05702 

• 

026  11 

JP 

FXRA I  XT 

03022 

61000 

03052 

• 

02612  FXRAI4 

CL 

W( ALPHASW) 

03023 

16030 

05702 

• 

02613 

ENT 

BUI 

03024 

12100 

00001 

02614 

ENT 

B4*AL  PHS I N 

03025 

12400 

05574 

LONG  CALC-GET  TAN 

02615 

ENT 

B5«ALPHC0S 

03026 

12500 

05606 

02616 

ENT 

B6*ALPHDI FF 

03027 

12600 

06067 

02617 

ENT 

B7*0 1 

03030 

12700 

00001 

02620 

RJP 

FLTPT 

03031 

65000 

06266 

8ELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N«7/ 1/65 


CAROS  LI  10  LABEL  TA  STATEMENT 


O 


02621 

ENT 

A»W ( ALPHD IFF*  1)*AZER0 

02622 

JP 

GOON 

02623 

MOVE 

2«  FLTONE* ALPHT  AN 

02624 

ENT 

A»W( ALPHT  AN* 1 ) 

02625 

ENT 

0*W ( ALPHS I N*  1 1 •QPOS 

02626 

CP 

A« 

02627 

ENT 

Q« W( ALPHCOS* 1 )*QPO$ 

02630 

CP 

A« 

02631 

JP 

FXRAIXT 

02632 

GOON 

ENT 

B4«ALPHSIN 

02633 

ENT 

B6«ALPHTAN 

02634 

ENT 

B7.03 

02635 

R  JP 

fltpt 

02636 

FXRAIXT 

RPL 

V*  1«L(FIXRAI) 

02637 

ENT 

B4*NI L 

02640 

ENT 

B5«NI L 

02641 

ENT 

B6«N I L 

02642 

ENT 

B1*NIL 

02643 

EXIT 

02644 

FI  XRA 

ENTRY 

02645 

STR 

B4  «L ( F  XRA  XT ♦ 1 ) 

02646 

STR 

B5«L  (  FXRAXT+2  ) 

02647 

STR 

86«L(FXRAXT+3) 

02650 

STR 

B1«L(FXRAXT*4I 

02651 

ENT 

B 1  •  1 

02652 

ENT 

B4*RAM 

02653 

ENT 

B6«RAMS I N 

02654 

ENT 

B7«  1 3 

02655 

RJP 

FLTPT 

02656 

ENT 

0»W(  ALPHB-HMONEG 

02657 

JP 

$♦6 

02660 

ENT 

B4*ALPHB 

02661 

ENT 

B5®TTWPI 

02662 

ENT 

B6*B4 

02663 

ENT 

B7  «00 

02664 

RJP 

FLTPT 

02665 

ENT 

B  1  •  1 

02666 

ENT 

B6«RAMC0S 

02667 

ENT 

B7«  14 

02670 

RJP 

FLTPT 

02671 

ENT 

A«W(II) 

02672 

COM 

A«W<HFPI)*YLESS 

02673 

JP 

1 1  LESS 

02674 

SUB 

A»W(HFPI ) • AZERO 

02675 

JP 

*♦4 

02676 

ENT 

A*W(HFPIH) 

02677 

COM 

A«W( I !♦! 1 *YMORE 

02700 

JP 

1 1  LESS 

02701 

PUT 

1«W(I ISHITCH) 

LOC 

flO 

* 

LL 

Y 

NOTES 

03032 

11430 

06070 

03033 

61000 

03046 

SIN  NOT  EQUAL  TO  COS  CONTINUE 

03034 

10030 

06136 

03035 

14030 

05620 

03036 

10030 

06137 

03037 

14030 

05621 

03040 

1  1030 

05621 

03041 

10230 

05575 

03042 

15040 

00000 

03043 

10230 

05607 

03044 

15040 

00000 

03045 

61000 

03052 

03046 

12400 

05574 

03047 

12600 

05620 

03050 

12700 

00003 

03051 

65000 

06266 

03052 

36010 

02751 

03053 

12400 

00000 

03054 

12500 

00000 

03055 

12600 

00000 

03056 

12100 

00000 

03057 

61010 

02751 

03060 

61000 

00000 

03061 

16410 

03564 

SAVE  IR-S 

03062 

16510 

03565 

03063 

16610 

03566 

03064 

16110 

03567 

03065 

12100 

00001 

03066 

12400 

05727 

RAMSIN 

03067 

12600 

05544 

03070 

12700 

00013 

03071 

65000 

06266 

03072 

10330 

05461 

IS  RA  NEG 

03073 

61000 

03101 

CONTINUS 

03074 

12400 

05460 

YES  ADD  360  DEGREES 

03075 

12500 

06165 

03076 

12604 

00000 

03077 

12700 

00000 

03100 

65000 

06266 

03101 

12100 

00001 

03102 

12600 

05546 

RAMCOS 

03103 

12700 

00014 

03104 

65000 

06266 

03105 

11030 

05432 

03106 

04630 

06150 

CHECK  I  VS  90 

03107 

61000 

03167 

NO  I  LESS  THAN  90 

03110 

21430 

06150 

CHECK  EQUAL 

03111 

61000 

03115 

I  GRTR  THAN  90 

03112 

11030 

06151 

MAYBE  DECK  FRACTION 

03113 

04730 

05433 

031  T4 

61000 

03167 

GO  ON 

03115 

10000 

00001 

BEL  TP 


SPURT  OUTPUT  NO.  210 
PONTON*//  1/65 


O 

00 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

031  16 

14030 

05676 

* 

02702 

ENT 

B4*RAM 

03117 

12400 

05727 

YES  I  GRTR  90 

• 

02703 

ENT 

85*HFP I 

03120 

12500 

06150 

02704 

ENT 

86*RAMI90 

03121 

12600 

06071 

RAM-90 

• 

02705 

ENT 

B7*0 1 

03122 

12700 

00001 

• 

02  706 

RJP 

FLTPT 

03123 

65000 

06266 

• 

02707 

ENT 

85  *THFP I 

03124 

12500 

06153 

02710 

ENT 

B6*RAMI270 

03125 

12600 

06073 

02711 

RJP 

FLTPT 

03126 

65000 

06266 

RAM-270 

• 

02712 

ENT 

A*W( ALPHB ) 

03127 

11030 

05460 

RA 

• 

02713 

ENT 

0*7777777777 

03130 

10040 

77777 

• 

02714 

COM 

MASK*W(RAMI90)*AZERO 

03131 

43430 

06071 

• 

02715 

JP 

CHE270 

03132 

61000 

03150 

CHECK  RAM-270 

• 

02716 

ENT 

A*W< RAMI90* 1 ) 

03133 

1  1030 

06072 

• 

02717 

COM 

MASK*W( ALPHB* 1 ) • AZERO 

03134 

43430 

05461 

02720 

JP 

FXRAX1 

03135 

61000 

03236 

GO  ON 

02721 

MOVE 

2*HFP I *LL 

03136 

10030 

06150 

RA*  RAM-90 

03137 

14030 

05707 

03140 

10030 

06151 

03141 

14030 

05710 

02722 

ENT 

B4  *BEL  P I XX 

03142 

12400 

06175 

SET  L *90  AND 

02723 

ENT 

85*11 

03143 

12500 

0S432 

OEC*  130-2 

02724 

ENT 

B6*0ELTB 

03144 

12600 

05452 

02725 

ENT 

B7*0 1 

03145 

12700 

00001 

02726 

RJP 

FLTPT 

03146 

65000 

06266 

• 

02727 

JP 

FXRADNX 

03147 

6  1000 

03571 

• 

02730  CHE270 

COM 

MASK*W(RAMI270)*AZER0 

03150 

43430 

06073 

CHECK  RAM-270 

• 

02731 

JP 

FXRAX1 

03151 

61000 

03236 

GO  TO  REGULAR 

• 

02732 

ENT 

A*W( ALPH8*1 ) 

03152 

11030 

05461 

• 

02733 

COM 

MASK*W(RAMI270*1) *azero 

03153 

43430 

06074 

• 

02734 

JP 

FXRAX1 

03154 

61000 

03236 

02735 

ENT 

B4  •  I  I 

03155 

12400 

05432 

RA*  RAM-270 

02736 

ENT 

B5*BELPIXX 

03156 

12500 

06175 

SET  L *270 

02737 

ENT 

B6*0ELTB 

03157 

12600 

05452 

OEC*  1-180 

02740 

ENT 

87*01 

03160 

12700 

00001 

• 

02741 

RJP 

FLTPT 

03161 

65000 

06266 

• 

02742 

MOVE 

2*THFP I*LL 

03162 

10030 

06153 

03163 

14030 

05707 

03164 

10030 

06(54 

03165 

14030 

05710 

• 

02743 

JP 

FXRAONY 

03166 

61000 

03600 

02744  1 1 LESS 

CL 

Will  SWITCH) 

03167 

16030 

05676 

• 

02745 

ENT 

B4*RAM 

03170 

12400 

05727 

• 

02746 

ENT 

B5*MFP 1 

03171 

12500 

06150 

• 

02747 

ENT 

B6  *RAM 1 90 

03172 

12600 

06071 

• 

02750 

ENT 

B7  *00 

03173 

12700 

00000 

• 

02751 

RJP 

FLTPT 

03174 

65000 

06266 

RAM*90 

• 

02752 

ENT 

B5*THFPI 

03175 

12500 

06153 

• 

02753 

ENT 

B6*R AM  1270 

03176 

12600 

06073 

• 

02754 

RJP 

FLTPT 

03177 

65000 

06266 

RAM*270 

• 

02755 

ENT 

A*W( ALPHB) 

03200 

l  1030 

05460 

• 

02756 

ENT 

0*7777777777 

03201 

10040 

77777 

• 

02757 

COM 

MASK*W( RAH 190) • AZERO 

03202 

43430 

06071 

CAL 


BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N*7/ I /65 


CARDS 

*-1  ID 

LABEL  Ta  STATeMENT 

LOC 

F 

r 

*°TES 

02760 

JP 

IICHE270 

03203 

61000 

03220 

CHECK  270 

02761 

ENT 

A*W( ALPHB+ 1 ) 

03204 

1  1030 

05461 

CHECK  FRACTION 

02762 

COM 

MASK*W( RAM 190+1  >*AZERO 

03205 

43430 

06072 

02763 

JP 

EXRAX1 

03206 

61000 

03236 

NOT  SPECIAL  CASE 

• 

027  64 

MOVE 

2*HFPI#LL 

03207 

10030 

06  150 

RA*RAM«-90  L*90 

03210 

14030 

05707 

0321  1 

10030 

06151 

03212 

14030 

05710 

• 

02765 

MOVE 

2+11 •DELTB 

03213 

10030 

05432 

I I *DELTB 

03214 

14030 

05452 

03215 

10030 

05433 

03216 

14030 

05453 

• 

02766 

JP 

FXRADNX 

03217 

61000 

03571 

• 

02767 

I I CHE270  COM 

MASK*Wt RAMI  270 )*AZERO 

03220 

43430 

06073 

• 

02770 

JP 

FXRAXI 

03221 

61000 

03236 

CONTINUE 

• 

02771 

ENT 

A«W( ALPHB+ 1 ) 

03222 

1  1030 

05461 

CHECK  FRACTION 

• 

02772 

COM 

HASK»W(RAMI270+D*AZER0 

03223 

43430 

06074 

• 

02773 

JP 

FXRAXI 

03224 

61000 

03236 

02774 

MOVE 

2*THFPI*LL 

03225 

10030 

06153 

RA*FAM*270  L-270 

03226 

14030 

05707 

03227 

10030 

06154 

03230 

14030 

05710 

02775 

PUT 

W ( II ) * W ( DELTB ) 

03231 

10030 

05432 

DEC*  -  I! 

03232 

14030 

05452 

+ 

02776 

PUT 

W  ( 1 1 ♦ 1 1+CPWIDELTB+1  1 

03233 

10030 

05433 

03234 

14070 

05453 

• 

02777 

JP 

FXRADNY 

03235 

61000 

03600 

• 

03000 

FXRAX1  ENT 

A*WI ALPHASW ) • ANOT 

03236 

11530 

05702 

CHECK  ALPSWO 

03001 

JP 

$♦4 

03237 

61000 

03243 

YES-LONG  FORMULA 

03002 

R  JP 

LAT2 

03240 

65000 

04036 

NO  SHORT  FORMULA 

03003 

JP 

FXRAXT ♦ 1 

03241 

61000 

03564 

03004 

JP 

$♦3 

03242 

61000 

03245 

03005 

R  JP 

L  AT  1 

03243 

65000 

04146 

YES 

03006 

JP 

FXRAXT ♦ 1 

03244 

61000 

03564 

• 

03007 

R  JP 

M0D2PI 

03245 

65000 

03752 

+ 

03010 

STR 

A  +  LUL) 

03246 

15010 

05707 

« 

030  11 

STR 

Q*W(LL+1> 

03247 

14030 

05710 

03012 

ENT 

A*W(IISWI TCH 1 • A ZERO 

03250 

1  1430 

05676 

03013 

JP 

S  +  7 

03251 

61000 

03260 

X 

03014 

ENT 

B4*ALPHB 

03252 

12400 

05460 

I  LESS  THAN  90 

03015 

3  ENT 

B5*RAM 

03253 

12500 

05727 

X 

X 

03016 

ENT 

B6*RAM I 90 

03254 

12600 

06071 

X 

03017 

ENT 

87*01 

03255 

12700 

00001 

X 

03020 

RJP 

FLTPT 

03256 

65000 

06266 

RA-RAM 

y 

03021 

JP 

$♦6 

03257 

61000 

03265 

A 

X 

03022 

ENT 

B4*RAM 

03260 

12400 

05727 

I  GRTR  THAN  90 

03023 

ENT 

B5«ALPHB 

0326  1 

12500 

05460 

A 

X 

03024 

ENT 

B6*R AM  1 90 

03262 

12600 

06071 

X 

03025 

ENT 

B7  *0  1 

03263 

12700 

00001 

X 

03026 

RJP 

FLTPT 

03264 

65000 

06266 

RAH-RA 

BELTP 


SPURT  OUTPUT  NO. 

P0NT0N*7/ 


CAROS 


LI  ID 

LABEL 

TA  STATEMENT 

03027 

ENT 

A*W(RAMI90) 

03030 

ENT 

Q*WIRAMI90+1> 

03031 

RJP 

M0D2PI 

03032 

STR 

A*W( RAMI90) 

03033 

STR 

Q*W{  RAMI90+  1 1 

03034 

AOO 

0*0«QNEG 

03035 

JP 

$♦6 

03036 

ENT 

B4*RAM 190 

03037 

ENT 

B5*TTWP I 

03040 

ENT 

B6  *RAM 1 90 

03041 

ENT 

B7  *00 

03042 

RJP 

FLTPT 

03043 

ENT 

A*W(RAHI90+1)*AN0T 

03044 

JP 

RARAHO 

03045 

ENT 

B4  *RAM I 90 

03046 

ENT 

B5*BELP I XX 

03047 

ENT 

B6*RAH 1270 

03050 

ENT 

B7*0  1 

03051 

RJP 

FLTPT 

03052 

ENT 

A*WIR AM 1270+1 )  *ANOT 

03053 

JP 

RARAH180 

03054 

JP 

QUAOL 1 2*ANEG 

03055 

ENT 

B4*RAM 190 

03056 

ENT 

B5*TTWP I 

03057 

ENT 

B6*RAH I 270 

03060 

ENT 

B7*0 1 

03061 

RJP 

FLTPT 

03062 

ENT 

A«WCRAMI270+1)*AN0T 

03063 

JP 

RARAHO 

03064 

0UADL34 

ENT 

A*W( LL+  1 ) *ANEG 

03065 

JP 

FXRAX36 

03066 

ENT 

B4*LL 

03067 

ENT 

B5*TTWPI 

03070 

ENT 

B6*LL 

03071 

ENT 

87*00 

03072 

RJP 

FLTPT 

03073 

FXRAX36 

ENT 

A* W( BELPI XX ) 

03074 

COM 

A*W(LL1*YLESS 

03075 

JP 

FXRAY34 

03076 

SUB 

A*WC  LL ) *AZERO 

03077 

JP 

FXRAX37 

03100 

ENT 

A*W( LL  + 1 ) 

03101 

COM 

A*WCBELPIXX) * YMORE 

03102 

JP 

FXRAY34 

03  103 

FXRAX37 

ENT 

B4*LL 

03104 

ENT 

B5*BELPIXX 

03105 

ENT 

B6*LL 

03106 

ENT 

B7  *00 

03  107 

RJP 

FLTPT 

NOTES 


LOC 

F  JKB 

Y 

03265 

11030 

06071 

03266 

10030 

06072 

03267 

65000 

03752 

03270 

15030 

0607  1 

03271 

14030 

06072 

03272 

26700 

00000 

03273 

61000 

03301 

03274 

12400 

06071 

03275 

12500 

06165 

03276 

12600 

06071 

03277 

12700 

00000 

03300 

65000 

06266 

03301 

11530 

06072 

03302 

61000 

03503 

03303 

12400 

06071 

03304 

12500 

06175 

03305 

12600 

06073 

03306 

12700 

00001 

03307 

65000 

06266 

03310 

11530 

06074 

03311 

61000 

03454 

03312 

60700 

03377 

03313 

12400 

06071 

03314 

12500 

06165 

03315 

12600 

06073 

03316 

12700 

00001 

03317 

65000 

06266 

03320 

1  1530 

06074 

03321 

61000 

03503 

03322 

11730 

05710 

03323 

61000 

03331 

03324 

12400 

05707 

03325 

12500 

06165 

03326 

12600 

05707 

03327 

12700 

00000 

03330 

65000 

06266 

03331 

11030 

06175 

03332 

04630 

05707 

03333 

61000 

03346 

03334 

21430 

05707 

03335 

61000 

03341 

03336 

1  1030 

05710 

03337 

04730 

06175 

03340 

61000 

03346 

03341 

12400 

05707 

03342 

12500 

06175 

03343 

12600 

05707 

03344 

12700 

00000 

03345 

65000 

06266 

X 

X 

X 

X 

X 

X 

NO  - 
X 

YESS  ADO  360 
X 
X 
X 
X 
X 
X 
X 

B  BETWEEN  0  TO  180 


B*  1 80 

B  GRTR  180*363 


*360 

l  IN  GUAD  3  OR  4 
X 

L  NEG  HAKE  POS-AOD  360 


CHECK  l  GRTR  THAN  180 
X 

NOT  *  AOO  180 


X 

ADD  180  TO  L 


BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N«  7 / 1 /65 


CAROS 


LI  10 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

03110 

FXRAY34 

ENT 

B4*RAM I 90 

03346 

12400 

0607  1 

X 

03111 

ENT 

B5*THFPI 

03347 

12500 

06153 

X 

03112 

ENT 

B6*RAMCHECK 

03350 

12600 

06103 

X 

03113 

ENT 

B7  *0  1 

03351 

12700 

00001 

X 

031  14 

RJP 

FLTPT 

03352 

65000 

06266 

X 

03115 

ENT 

A*W( R AMCHECK+ 1 ) •  ANEG 

03353 

11730 

06104 

X 

03116 

JP 

FXQUA04 

03354 

61000 

03374 

X 

03117 

FXQUAD3 

ENT 

A*W( FX INST1 ) 

03355 

11030 

06120 

03120 

STR 

A*W( FXSWI TCH2 ) 

03356 

15030 

03364 

03121 

ENT 

B4»LL 

03357 

12400 

05707 

X 

03122 

ENT 

B5*THFPI 

03360 

12500 

06153 

X 

03123 

ENT 

B6*LLM INUS 

03361 

12600 

06101 

X 

03124 

ENT 

B7*0  1 

03362 

12700 

00001 

X 

03125 

RJP 

FLTPT 

03363 

65000 

96266 

X 

03126 

FXSWITCH2 

ENT 

A*  W( LLM I NUS* 1 )»APOS 

03364 

11630 

06102 

X 

03127 

JP 

FXRAX2 

03365 

61000 

03530 

X 

03130 

ENT 

B4»HFP  I 

03366 

12400 

06150 

03131 

ENT 

B5*LL 

03367 

12500 

05707 

X 

03132 

ENT 

B6*LL 

03370 

12600 

05707 

X 

03133 

ENT 

B7  *0 1 

03371 

12700 

00001 

X 

03134 

RJP 

FLTPT 

03372 

65000 

06266 

X 

03135 

JP 

FXRAX2 

03373 

61000 

03530 

X 

03136 

FXQUA04 

ENT 

A*W( FXINST) 

03374 

1  1030 

06117 

X 

03137 

STR 

A*W(FXSWITCH2) 

03375 

15030 

03364 

03140 

JP 

FXQUA03+2 

03376 

61000 

03357 

X 

0314  1 

QUADL  12 

ENT 

A*W( LL* 1 ) *ANEG 

03377 

11730 

05710 

03142 

JP 

FXRAX14 

03400 

61000 

03406 

03143 

ENT 

B4*LL 

03401 

12400 

05707 

L  NEG  I  400  360  BEFORE 

03144 

ENT 

85*TTWP I 

03402 

12500 

06165 

03145 

ENT 

B6*LL 

03403 

12600 

05707 

03146 

ENT 

87*00 

03404 

12700 

00000 

03147 

RJP 

FLTPT 

03405 

65000 

06266 

03150 

FXRAX14 

ENT 

A*W( BELPI XX ) 

03406 

1  1030 

06175 

L  *  OR  LESS  THAN  180 

03151 

COM 

A*W(LL )*YLESS 

03407 

04630 

05707 

03152 

JP 

FXRAX15 

03410 

61000 

03416 

TOO  BIG  -  SUB  180 

03153 

SUB 

A*  W(  LL  )  * A2ER0 

03411 

21430 

05707 

03154 

JP 

FXRAY 1 2 

03412 

61000 

03423 

X 

03155 

ENT 

A*W(BELPIXX* 1 ) 

03413 

1  1030 

06176 

YES  «  CHECK  FRACTION 

03156 

COM 

A*WUL*1)*YM0RE 

03414 

04730 

05710 

03157 

JP 

FXRAY 12 

03415 

61000 

03423 

X 

03160 

FXRAX15 

ENT 

B4*LL 

03416 

12400 

05707 

SUBTRACT  L -  1 80 

03161 

ENT 

B5*BELP I XX 

03417 

12500 

06175 

03162 

ENT 

B6*LL 

03420 

12600 

05707 

03163 

ENT 

B7  *0 1 

03421 

12700 

00001 

03164 

RJP 

FLTPT 

03422 

65000 

06266 

03165 

FXRAY  12 

ENT 

B4  *RAM  I  90 

03423 

12400 

0607  1 

X 

03166 

ENT 

B5*HFPI 

03424 

12500 

06150 

X 

03167 

ENT 

B6*RAMCHECK 

03425 

12600 

06103 

X 

03170 

ENT 

B7*0 1 

03426 

12700 

00001 

X 

03171 

RJP 

FLTPT 

03427 

65000 

06266 

X 

03172 

ENT 

A*W( RAMCHECK* 1 ) • ANEG 

03430 

1  1730 

06104 

X 

03173 

JP 

FXQUAD2 

03431 

61000 

03451 

X 

03174 

FXQUAD1 

ENT 

A* Wl F X  INST  1 ) 

03432 

11030 

06120 

X 

CHE 


112 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/1/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

• 

031  75 

STR 

A* W( FXSWI TCH J 

• 

03176 

ENT 

B4*LL 

03177 

ENT 

B5*HFP I 

03200 

ENT 

B6*LLM I NUS 

03201 

ENT 

B7*0l 

03202 

RJP 

FLTPT 

03203  FXSWITCH 

ENT 

A*W(LLMINUS+1 )*AP0$ 

0320*1 

JP 

FXRAX2 

03205 

ENT 

B4  *HFP I 

03206 

ENT 

B5*LL 

03207 

ENT 

B6*LL 

03210 

ENT 

B7  *0 1 

• 

03211 

RJP 

FLTPT 

• 

03212 

JP 

FXRAX2 

• 

03213  FXQUAD2 

ENT 

A*W( FX INST ) 

• 

0321** 

STR 

A*W(  FXSWI TCH) 

• 

032  15 

JP 

FXQUADU2 

03216  RARAM180 

MOVE 

2*8ELPIXX*IL 

03217 

PUT 

W(FLTONE)*W( LLCOS 1 

03220 

PUT 

WIFLTONE*  1 1*CPW(LLC0S^1 1 

03221 

CL 

W(LLSIN) 

03222 

CL 

WILLSIN+1) 

03223 

PUT 

W ( IISIN)*W(DELTSIN) 

03224 

PUT 

W( IISIN*1)CPW(DELT$IN*1) 

03225 

PUT 

W (  1 1 1 *W (OELTB ) 

03226 

PUT 

W ( 1 1 ♦  1  )*CPW( OELTB* 1 ) 

03227 

MOVE 

2*IIC0S*DELTC0S 

• 

03230 

JP 

FXRAON 

03231  RARAMO 

CL 

WILL) 

• 

03232 

CL 

W  (  L  L  ♦  1 1 

• 

03233 

MOVE 

2 «FL TONE* LLCOS 

• 

03234 

CL 

W(LLSIN) 

• 

03235 

CL 

WCLLSIN*!  1 

• 

03236 

MOVE 

2*IISIN*DELTSIN 

• 

03237 

MOVE 

2* I ICOS*DELTCOS 

LOC 

F  JKB 

Y 

NOTES 

03433 

15030 

03441 

X 

03434 

12400 

05707 

X 

03435 

12500 

06150 

X 

03436 

12600 

06101 

X 

03437 

12700 

00001 

X 

03440 

65000 

06266 

X 

03441 

11630 

06102 

03442 

61000 

03530 

X 

03443 

12400 

06150 

03444 

12500 

05707 

X 

03445 

12600 

05707 

X 

03446 

12700 

00001 

X 

03447 

65000 

06266 

X 

03450 

61000 

03530 

X 

03451 

11030 

06117 

X 

03452 

15030 

03441 

X 

03453 

61000 

03434 

X 

034  54 

10030 

06175 

X 

03455 

14030 

05707 

03456 

10030 

06176 

03457 

14030 

05710 

03460 

10030 

06136 

03461 

14030 

05630 

03462 

10030 

06137 

03463 

14070 

05631 

03464 

16030 

05622 

03465 

16030 

05623 

03466 

10030 

05540 

03467 

14030 

05550 

03470 

10030 

05541 

03471 

14070 

05551 

03472 

10030 

05432 

03473 

14030 

05452 

03474 

10030 

05433 

03475 

14070 

05453 

03476 

10030 

05542 

03477 

14030 

05562 

03500 

10030 

05543 

03501 

14030 

05563 

03502 

61000 

03557 

TO  RANGE  ROUTINE 

03503 

16030 

05707 

03504 

16030 

05710 

03505 

10030 

06136 

03506 

14030 

05630 

03507 

10030 

06137 

03510 

14030 

05631 

03511 

16030 

05622 

03512 

16030 

05623 

03513 

10030 

05540 

03514 

14030 

05550 

03515 

10030 

05541 

03516 

14030 

05551 

03517 

10030 

05542 

I 


.  SPURT  OUTPUT  MO-  210 

BELTP  PONTON*  7/ 1/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

03240 

MOVE  2MI*DELTB 

03241 

JP 

FXRADN 

03242  FXRAX2 

ENT 

B  1  •  1 

03243 

ENT 

B4*LL 

03244 

ENT 

B6*LLS I N 

03245 

ENT 

B7*  1 3 

03246 

R  JP 

FLTPT 

03247 

ENT 

B  1  •  1 

03250 

ENT 

B4*I ISIN 

03251 

ENT 

B5*LLSIN 

03252 

ENT 

B6*DEL  TSI N 

03253 

ENT 

B7*02 

03254 

R  JP 

FLTPT 

03255 

ENT 

B 1  •  1 

03256 

ENT 

B4*DELTSIN 

03257 

ENT 

B6*DELTB 

03260 

ENT 

B7*  1  7 

03261 

R  JP 

FLTPT 

03262 

ENT 

B4*D£LTB 

03263 

ENT 

B6*DELTC0S 

03264 

ENT 

B7*  1 4 

03265 

R  JP 

FLTPT 

03266 

ENT 

B4  *LL 

03267 

ENT 

B6  *L  LCOS 

03270 

RJP 

FLTPT 

03271  FXRADN 

R  JP 

BRANGE 

03272 

JP 

FXRAXT”*! 

03273 

STR 

A*L ( RANGE  B 1 

03274 

STR 

Q»W(RANGEB+1) 

03275  FXRAXT 

RPL 

Y*  1  *L ( F I XRA 1 

03276 

ENT 

B4*NI L 

03277 

ENT 

B5*N I L 

03300 

ENT 

B6*N I L 

03301 

ENT 

B1*NIL 

03302 

EXIT 

03303  FXRAONX 

MOVE 

2«FLT0NE*LLSI N 

03304 

CL 

W(LLCOS) 

• 

03305 

CL 

WC  LLCOS* 1 1 

# 

03306 

JP 

FXRADN 

• 

03307  FXRAONY 

PUT 

Wt  FLTONE) *W( LLSIN) 

• 

03310 

PUT 

WCFLTONE* 1  )*CPW( LL 

m 

03311 

CL 

W( LLC0S1 

MOTES 


LOC 

F  JK.B 

Y 

03520 

14030 

05562 

03521 

10030 

05543 

03522 

14030 

05563 

03523 

10030 

05432 

03524 

14030 

05452 

03525 

10030 

05433 

03526 

14030 

05453 

03527 

61000 

03557 

03530 

12100 

00001 

03531 

12400 

05707 

03532 

12600 

05622 

03533 

12700 

00013 

03534 

65000 

06266 

03535 

12100 

00001 

03536 

12400 

05540 

03537 

12500 

05622 

03540 

12600 

05550 

03541 

12700 

00002 

03542 

65000 

06266 

03543 

12100 

00001 

03544 

12400 

05550 

03545 

12600 

05452 

03546 

12700 

00017 

03547 

65000 

06266 

03550 

12400 

05452 

03551 

12600 

05562 

03552 

12700 

00014 

03553 

65000 

06266 

03554 

12400 

05707 

03555 

12600 

05630 

03556 

65000 

06266 

03557 

65000 

04463 

03560 

6  1000 

03564 

03561 

15010 

05731 

03562 

14030 

05732 

03563 

36010 

03060 

03564 

12400 

00000 

03565 

12500 

00000 

03566 

12600 

00000 

03567 

12100 

00000 

03570 

61010 

03060 

03571 

10030 

06136 

03572 

14030 

05622 

03573 

10030 

06137 

03574 

14030 

05623 

03575 

16030 

05630 

03576 

16030 

05631 

03577 

61000 

03557 

03600 

10030 

06136 

03601 

14030 

05622 

03602 

10030 

06137 

03603 

14070 

05623 

03604 

16030 

05630 

TO  RANGE  ROUTINE 
CALC  S  I  ML 


GET  ARCSIM  DEL  TB 


X 

X 

X 

ERROR  EXIT 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*?/ 1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

03312 

CL 

W ( LLCOS*  1  1 

03605 

16030 

05631 

• 

03313 

JP 

FXRAON 

03606 

61000 

03557 

• 

03314  FXRAXERR 

JP 

S 

03607 

61000 

03607 

• 

03315  FIXLONGI 

ENTRY 

03610 

61000 

00000 

• 

03316 

STR 

B4*HFXLGlXTf  1) 

036  11 

16410 

03645 

SAVE  IR-S 

• 

03317 

STR 

B5*UFXLGIXT*2> 

03612 

16510 

03646 

03320 

STR 

B6*L ( FXLG IXT+3 ) 

03613 

16610 

03647 

• 

03321 

STR 

B 1 *L  t  F XLG I XT  +  4 ) 

03614 

16110 

03650 

• 

03322 

R  JP 

ALPHAGNEW 

03615 

65000 

04  730 

NEW  RAIGREENWICH1CALC 

Y 

• 

03323 

STR 

A*L( ALPHG ) 

03616 

15010 

05717 

03324 

STR 

Q*W( ALPHG+ 1 ) 

03617 

14030 

05720 

• 

03325 

ENT 

B  1  *  1 

03620 

12100 

00001 

• 

03326 

ENT 

B4*ALPHG 

03621 

12400 

05717 

GET  ALPHB«ALPHG*LAHDB 

• 

03327 

ENT 

B5*LAM0B 

03622 

12500 

05462 

03330 

ENT 

86* ALPHB 

03623 

12600 

05460 

03331 

ENT 

B7*00 

03624 

12700 

00000 

• 

03332 

RJP 

FLTPT 

03625 

65000 

06266 

• 

03333 

ENT 

Q*W( ALPHB^1)*QNEG 

03626 

10330 

05461 

IS  RA  NEG 

• 

03334 

JP 

$♦7 

03627 

61000 

03636 

NO  CONTINUE 

• 

03335 

ENT 

B4*ALPHB 

03630 

12400 

05460 

YES  ADD  360  DEGREES 

• 

03336 

ENT 

B5*TTWP I 

03631 

12500 

06165 

03337 

ENT 

B6*B4 

03632 

12604 

00000 

03340 

ENT 

B7*00 

03633 

12700 

00000 

• 

03341 

RJP 

FLTPT 

03634 

65000 

06266 

• 

03342 

ENT 

Q*W( ALPHB* 1 1 

03635 

10030 

05461 

• 

03343 

ENT 

A*L( ALPHB ) 

03636 

1  1010 

05460 

GET  ALPHB  MOD  2?I 

• 

03344 

RJP 

M0D2PI 

03637 

65000 

03752 

• 

03345 

STR 

A*L( ALPHB ) 

03640 

15010 

05460 

03346 

STR 

Q*W(ALPHB+1) 

03641 

14030 

05461 

03347 

RJP 

FIXRAI 

03642 

65000 

02751 

03350 

JP 

FXLGI XT* 1 

03643 

61000 

03645 

ERROR  RETURN 

03351  FXLGIXT 

RPL 

y*  1  • L  f  F I XLONG I ) 

03644 

36010 

03610 

NORMAL  EXIT 

• 

03352 

ENT 

B4*NIL 

03645 

12400 

00000 

RESTORE  IR-S 

• 

03353 

ENT 

B5*NIL 

03646 

12500 

00000 

• 

03354 

ENT 

B6*N I L 

03647 

12600 

00000 

• 

03355 

ENT 

B 1 *NI L 

03650 

12100 

00000 

• 

03356 

EXIT 

03651 

61010 

03610 

03357  FIXLONG 

ENTRY 

03652 

61000 

00000 

03  360 

STR 

B4*L ( FXLGXT* 1 ) 

03653 

16410 

03745 

SAVE  IR-S 

03361 

STR 

B5*L ( F  XLGXT+2 ) 

03654 

16510 

03746 

03362 

STR 

B6*L(FXLGXT*3) 

03655 

16610 

03747 

• 

03363 

STR 

B  1  *L ( FXLGXT+4  1 

03656 

16110 

03750 

• 

03364 

RJP 

ALPHAGNEW 

03657 

65000 

04730 

NEW  RA( GREENWICH 1CALC 

y 

• 

03365 

STR 

A*L( ALPHG 1 

03660 

15010 

05717 

A 

• 

03366 

STR 

0*W(  ALPHG+1) 

03661 

14030 

05720 

• 

03367 

ENT 

B  1*  1 

03662 

12100 

00001 

03370 

ENT 

B4*ALPHG 

03663 

12400 

05717 

calc  alphb*alphg*lamdg 

03371 

ENT 

B5*LAMDB 

03664 

12500 

05462 

03372 

ENT 

B6*ALPHB 

03665 

12600 

05460 

03373 

ENT 

B7*00 

03666 

12700 

00000 

03374 

RJP 

FLTPT 

03667 

65000 

06266 

I 


BELTP 


SPURT  OUTPUT  NO.  210 
PONT  ON*  7 /  1/65 


CAROS 


Li  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

03375 

ENT 

0*WULPHB*H  )*QNEG 

03670 

10330 

05461 

IS  RA  NEG 

03376 

JP 

$♦7 

03671 

61000 

03700 

NO  CONTINUE 

03377 

ENT 

84  *ALPH8 

03672 

12400 

05460 

YES  ADO  360  DEGREES 

03400 

ENT 

B5*TTWP I 

03673 

12500 

06165 

03401 

ENT 

B6»B4 

03674 

12604 

00000 

03402 

ENT 

87*00 

03675 

12700 

00000 

03403 

RJP 

FLTPT 

03676 

65000 

06266 

03404 

ENT 

Q* W( ALPHB^ 1 1 

03677 

10030 

0546  1 

03405 

ENT 

A*L ( ALPHB 1 

03700 

11010 

05460 

MAKE  ALPHB  MOO  2?  1 

03406 

RJP 

M002PI 

03701 

65000 

03752 

03407 

STR 

A*L( ALPHB) 

03702 

15010 

05460 

03410 

STR 

0*W( ALPHB* 1 ) 

03703 

14030 

05461 

034  11 

ADO 

Q*0*0NEG 

03704 

26700 

00000 

RA  POS 

Y 

03412 

JP 

$♦6 

03705 

61000 

0371  3 

a 

YES 

Y 

034  13 

ENT 

84  *ALPHB 

03706 

12400 

05460 

A 

NO- ADO  360 

034  14 

ENT 

85 • TTWP I 

03707 

12500 

06165 

X 

X 

034  15 

ENT 

B6*B4 

03710 

12604 

00000 

X 

034  16 

ENT 

87*00 

0371  1 

12700 

00000 

X 

03417 

RJP 

FLTPT 

03712 

65000 

06266 

X 

03420 

ENT 

81*1 

03713 

12100 

0000  1 

03421 

ENT 

B4 • ALPHB 

03714 

12400 

05460 

GET  ALPHSIN 

03422 

ENT 

86* AL  PHSI N 

03715 

12600 

05574 

03423 

ENT 

B7*  1  3 

03716 

12700 

00013 

03424 

RJP 

FLTPT 

03717 

65000 

06266 

03425 

ENT 

81*1 

03720 

12100 

0000  1 

03426 

ENT 

B6*AL  PHCO S 

03721 

12600 

05606 

GET  ALPHCOS 

03427 

ENT 

B7  •  1  4 

03722 

12700 

00014 

03430 

RJP 

FLTPT 

03723 

65000 

06266 

03431 

EfcT 

A«L( ALPHSIN) 

03724 

1  1010 

05574 

03432 

SUB 

A*L< ALPHCOS) 

03725 

21010 

05606 

03433 

COM 

A*270* YMORE 

03726 

04700 

00033 

TEST  VAL  OF  TAN 

03434 

JP 

FXLG1 

03727 

61000 

03740 

A  S  W  *  1  (SHORT  CALC 

03435 

ENT 

81*1 

03730 

12100 

00001 

03436 

ENT 

84 • ALPHSI N 

0373) 

12400 

05574 

NEED  TAN  FOR  LONS  CALC 

03437 

ENT 

B5-ALPHC0S 

03732 

12500 

05606 

03440 

ENT 

B6*AL  PHTAN 

03733 

12600 

05620 

0344  1 

ENT 

87*03 

03734 

12700 

00003 

03442 

RJP 

FLTPT 

03735 

65000 

06266 

03443 

CL 

W ( ALPHASW ) 

03736 

16030 

05702 

03444 

JP 

FXLGU2 

03737 

61000 

03742 

03445 

FXLG1 

PUT 

1 • W ( ALPHASW) 

03740 

10000 

00001 

ASW  » 1 

03741 

14030 

05702 

03446 

RJP 

FIXRA 

03742 

65000 

03060 

03447 

JP 

FX  LGX  T ♦ 1 

03743 

61000 

03745 

ERROR  RETURN 

03450 

FXLGXT 

RPL 

Y*1*L(FIXL0NG) 

03744 

36010 

03652 

03451 

ENT 

B4  *N I L 

03745 

12400 

00000 

03452 

ENT 

B5»NIL 

03746 

12500 

00000 

03453 

ENT 

B6*N I L 

03747 

12600 

00000 

03454 

ENT 

8 1 *N  I  L 

03750 

12100 

00000 

03455 

EXIT 

03751 

6  1010 

03652 

CARDS 


.  SPURT  OUTPUT  NO*  210 

BELTP  P0NT0N*7/1/65 


LI  10 

LABEL 

TA  STATEMENT 

03456 

M0D2PI 

ENTRY 

03457 

STR 

8  1  *L  ( MOOB  1 1 

03460 

STR 

84  *L ( M00B4 ) 

03461 

STR 

B5*L ( M0DB5) 

03462 

STR 

B6  *L ( M0086 ) 

03463 

STR 

B7  *L ( M00B7 ) 

03464 

STR 

A*  W( MODNUM) 

03465 

STR 

0*W(M00NUM*1) 

03466 

ENT 

0*61000 

03467 

STR 

Q*U( MOO  1 ) 

03470 

STR 

Q*U( M002 ) 

03471 

MODS 

COM 

A* 40004 *Y MORE 

03472 

JP 

MODI 

03473 

SUB 

A*4OOO3*AZER0 

03474 

JP 

MODNORM 

03475 

ENT 

A*  W  (  MODNUM-*'  1  )  •  APOS 

03476 

CP 

A 

03477 

COM 

A* W (  BEL2P  I  HI  )*YMORE 

03500 

JP 

MO0 1 

03501 

MODNORM 

ENT 

A*W(MODNUM) 

03502 

ENT 

0* W ( MODNUM* 1 1 

03503 

MODS  1 

ENT 

61*0 

03504 

M00B4 

ENT 

B4  *0 

03505 

M00B5 

ENT 

85*0 

03506 

M00B6 

ENT 

B6*0 

03507 

M0DB7 

ENT 

87*0 

03510 

EXIT 

03511 

MOO  1 

JP 

M003 

03512 

M002 

JP 

M004 

03513 

JP 

M006 

03514 

M0D3 

ENT 

0*12000 

03515 

STR 

0*U( MODI ) 

03516 

ENT 

A*W  ( MOONUM*- 1  )*APOS 

03517 

JP 

M006 

03520 

M0D4 

ENT 

B4*M00NUM 

03521 

ENT 

B5*BEL2PI 

03522 

ENT 

B6*M00NUM 

03523 

ENT 

B7*0 1 

03524 

ENT 

B  1  •  1 

03525 

R  JP 

FLTPT 

03526 

ENT 

A*W( MOONUM) 

03527 

JP 

MOOS 

03530 

M0D6 

ENT 

B4*M0DNUM 

03531 

ENT 

B5*BEL2PI 

03532 

ENT 

B6*M00NUM 

03533 

ENT 

B7  *00 

03534 

ENT 

81*1 

03535 

EXECUTE  FLTPT 

03536 

ENT 

0*12000 

03537 

STR 

0*U( M002 ) 

03540 

ENT 

A*  W ( MOONUM) 

03541 

JP 

MOOS 

LOC 

F  JKB 

Y 

NOTES 

03752 

61000 

00000 

03753 

161  10 

03777 

03754 

16410 

04000 

03755 

16510 

04001 

03756 

16610 

04002 

03757 

16710 

04003 

03760 

15030 

06256 

IS  EXP  LESS  THAN  OR 

03761 

14030 

06257 

EQUAL  TO  40003 

03762 

10000 

61000 

INITIALIZATION 

03763 

14020 

04005 

03764 

14020 

04006 

03765 

04700 

40004 

03766 

61000 

04005 

NO  ERROR 

03767 

21400 

40003 

IS  EXP  40003 

03770 

61000 

03775 

NO  NUMBER  GOOD 

03771 

11630 

06257 

TEST  FRAC  POS 

03772 

15040 

00000 

03773 

04730 

06141 

03774 

61000 

04005 

NO  ERROR 

03775 

1  1030 

06256 

NORMAL  EXIT 

03776 

10030 

06257 

FRAC  IN  Q 

03777 

12100 

00000 

04000 

12400 

00000 

04001 

12500 

00000 

04002 

12600 

00000 

04003 

12700 

00000 

04004 

61010 

03752 

EXP  IN  A 

04005 

61000 

04010 

SW  BETA  JP  TO 

04006 

61000 

04014 

SW  ALPHA 

04007 

61000 

04024 

04010 

10000 

12000 

SET  BETA  TO  B 

04011 

14020 

04005 

04012 

11630 

06257 

TEST  NUM  FOR  POS 

04013 

61000 

04024 

NO  JP  TO  NEG  ROUT 

04014 

12400 

06256 

SUB  2PI  FROM  NUM 

04015 

12500 

06165 

04016 

12600 

06256 

STORE  IN  NUMBER 

04017 

12700 

00001 

04020 

12100 

00001 

04021 

65000 

06266 

04022 

11030 

06256 

EXP  IN  A  REGISTER 

04023 

61000 

03765 

JP  TO  TEST  FOR  LESS 
2PI 

THAN 

OR 

04024 

12400 

06256 

04025 

12500 

06165 

04026 

12600 

06256 

STORE  IN  NUMBER 

04027 

12700 

00000 

04030 

12100 

00001 

04031 

65000 

06266 

AOO  2PI  TO  NEG  NUM 

04032 

10000 

12000 

04033 

14020 

04006 

04034 

1  1030 

06256 

EXP  IN  A 

04035 

61000 

03765 

JP  TO  TEST  FOR  LESS 

THAN 

OR 

117 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N-7/1/65 


CARDS 


Ll  ID  LABEL  TA  STATEMENT 

03542  LAT2  ENTRY 


03543 

STR 

03544 

STR 

03545 

STR 

03546 

STR 

03547 

STR 

03550 

ENT 

03551 

ENT 

03552 

ENT 

03553 

ENT 

03554 

ENT 

03555 

RJP 

03556 

ADO 

03557 

JP 

03560 

ENT 

03561 

ENT 

03562 

ENT 

03563 

ENT 

03564 

ENT 

03565 

RJP 

03566 

PUT 

03567 

PUT 

03570 

ENT 

03571 

ENT 

03572 

ENT 

03573 

ENT 

03574 

ENT 

03575 

RJP 

03576 

ENT 

03577 

ENT 

03600 

ENT 

03601 

ENT 

03602 

ENT 

03603 

RJP 

03604 

ENT 

03605 

ENT 

03606 

ENT 

03607 

ENT 

03610 

RJP 

03611 

ENT 

03612 

ENT 

03613 

ENT 

03614 

ENT 

03615 

ENT 

03616 

RJP 

03617 

ENT 

03620 

ENT 

03621 

ENT 

03622 

ENT 

03623 

RJP 

B4*L ( L AT2  1 ) 

B  1  *L ( LAT25 ) 

B5*L ( l AT22 ) 

B6*L ( L AT2  3 ) 

B7*L ( L AT2  4 1 

B4*I ICOS 

B5*RAMSIN 

B6*BEL  PROD 

B7  *02 

BUI 

FLTPT 

A*0® ANOT 

LAT2PI 

B4*RAMC0S 

BS*BELPROD 

B6*BELQU0T 

B7*03 

BUI 

FLTPT 

W( BEL QUO T  UW(BELST0R1 ) 

W (  BELOUOT ♦  1UWIBELST0RU1 ) 

B4  *8ELQU0T 

B5*BEL0U0T 

B6*BELPR0D 

B7*02 

BUI 

FLTPT 

B4*FLT0NE 

B5«BELPR0D 

B6*BEL  SUM 

B7*00 

BUI 

FLTPT 

B4*BEL  SUM 

B6*BEL  ST0R2 

87*12 

BUI 

FLTPT 

B4*BELST0R1 

B5*BELSTOR2 

B6*BELQU0T 

B7*03 

BUI 

FLTPT 

B4*BELQU0T 
B6*LL 
B7*  1 7 
BUI 
FLTPT 


LOC 

F  JKB 

Y 

NOTES 

2PI 

04036 

61000 

00000 

04037 

16410 

04127 

INITIALIZATION 

04040 

16110 

04133 

04041 

16510 

04130 

04042 

16610 

04131 

04043 

16710 

04132 

04  04  4 

12400 

05542 

04045 

12500 

05544 

04046 

12600 

06242 

04047 

12700 

00002 

MUL  COSI  BY  SINLOMEGA 

04  050 

12100 

00001 

04051 

65000 

06266 

04052 

20500 

00000 

TEST  DENOMINATOR 

*  0 

04053 

61000 

04140 

L*90DEGREES  OR  270 

04054 

12400 

05546 

04055 

12500 

06242 

04056 

12600 

06246 

04057 

12700 

00003 

04  060 

12100 

00001 

04061 

65000 

06266 

OIV  COSLOMEGA  BY 

PROD 

04062 

10030 

06246 

04063 

14030 

06250 

04064 

10030 

06247 

ARCTAN*ARCS IN  OF 

A  SSQ  OIV 

04065 

14030 

06251 

04066 

12400 

06246 

BY  SQ  RT  UA  SO 

04067 

12500 

06246 

04070 

12600 

06242 

A  SQUARED 

04071 

12700 

00002 

04072 

12100 

00001 

04073 

65000 

06266 

04074 

12400 

06136 

04075 

12500 

06242 

04076 

12600 

06244 

04077 

12700 

00000 

04  100 

12100 

00001 

04101 

65000 

06266 

UA  SQ 

04  102 

12400 

06244 

04103 

12600 

06252 

04  104 

12700 

00012 

SO  RT  OF  SUM 

04  105 

12100 

00001 

04106 

65000 

06266 

04  107 

12400 

06250 

04  no 

12500 

06252 

04111 

12600 

06246 

04112 

12700 

00003 

01  BIS  I  ON  OF  A  BY 

SQ  R I 

04  113 

12100 

00001 

04  1 14 

65000 

06266 

04  115 

12400 

06246 

ARC  SIN 

04  1  16 

12600 

05707 

04117 

12700 

00017 

04  120 

12100 

00001 

04121 

65000 

06266 

118 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CAROS 

LI  ID  LABEL 

ta  statement 

LOC 

F  JKB 

Y 

NOTES 

03624 

ENT 

A«W(LL) 

04  122 

11030 

05707 

TEST  L  LESS  THAN  OR  *  2PI 

03625 

ENT 

Q*W(LL*1 1 

04123 

10030 

05710 

03626 

RJP 

M0D2PI 

04124 

65000 

03752 

JP  TO  2PI  MODULUS 

03627 

STR 

A* Wl LL 1 

04  125 

15030 

05707 

03630 

STR 

Q* W( LL ♦ 1 1 

04126 

14030 

05710 

03631  LAT21 

ENT 

B4*0 

04127 

12400 

00000 

NORMAL  EXIT 

03632  LAT22 

ENT 

B5«0 

04130 

12500 

00000 

03633  LAT23 

ENT 

B6  *0 

04  131 

12600 

00000 

03634  LAT24 

ENT 

B7  *0 

04132 

12700 

00000 

03635  LAT25 

ENT 

B  1  *0 

04  133 

12100 

00000 

03636 

RPL 

Y+  1  *L ( L AT  2 ) 

04  134 

36010 

04036 

03637 

ENT 

A* W( LL ) 

04135 

1  1030 

05707 

• 

03640 

ENT 

Q*W( LL ♦ 1 1 

04136 

10030 

05710 

• 

03641 

EXIT 

04137 

61010 

04036 

• 

03642  LAT2PI 

ENT 

A«W(RAHC0S*1 1 • APOS 

04  140 

11630 

05547 

WILL  TAN  BE  ♦  OR  - 

03643 

ENT 

A* W( THFP I )*SKIP 

04  141 

11130 

06153 

-  L  *  270 

03644 

ENT 

A«  W ( HE  P I ) «SK I P 

04  142 

1  1130 

06150 

P  L*  90 

03645 

ENT 

Q»W(THFPI*1 ) • SK I  P 

04  143 

10130 

06154 

03646 

ENT 

Q« W( HFP I ♦  1  ) 

04  144 

10030 

0615  1 

03647 

JP 

LAT21-3 

04  145 

61000 

04124 

03650  L AT  1 

ENTRY 

04146 

61000 

00000 

03651 

STR 

B 1 «L ( L AT  1 5 ) 

04  147 

161  10 

04300 

• 

03652 

STR 

84*L(LAT1  1) 

04  150 

16410 

04274 

INITIALIZATION 

• 

03653 

STR 

B5«L ( LAT 1 2) 

04151 

16510 

04275 

• 

03654 

STR 

86 *L  (  L  AT  I  3  1 

04152 

16610 

04276 

03655 

STR 

87«L ( L AT  1 4 ) 

04153 

16710 

04277 

03656 

CL 

WILATEM) 

04  154 

16030 

05704 

03657 

ENT 

B4*IIC0S 

04  155 

12400 

05542 

03660 

ENT 

B5«RAMC0S 

04156 

12500 

05546 

03661 

ENT 

B6-BELST0R1 

04  157 

12600 

06250 

03662 

ENT 

B7«02 

04160 

12700 

00002 

03663 

ENT 

B  1  *  1 

04161 

12100 

00001 

03664 

RJP 

FLTPT 

04162 

65000 

06266 

03665 

ENT 

85  »ALPHT  AN 

04  163 

12500 

05620 

03666 

ENT 

86*BELPR00 

04164 

12600 

06242 

03667 

ENT 

B  1  *  1 

04165 

12100 

00001 

03670 

RJP 

FLTPT 

04166 

65000 

06266 

MULT  TANALPHA  BY  COSI 

03671 

ENT 

B4  «BELPROD 

04  167 

12400 

06242 

03672 

ENT 

B5  »R AMS I N 

04  170 

12SU0 

05544 

03673 

ENT 

61*1 

04  171 

12100 

00001 

03674 

RJP 

FLTPT 

04  172 

65000 

06266 

MUL  PREVIOUS  PROD  BY  SINLOMESA 

03675 

ENT 

B4«BELPR00 

04173 

12400 

06242 

03676 

ENT 

B5  «BELSTOR 1 

04  174 

12500 

06250 

03677 

ENT 

86  *BEL  STOR 1 

04175 

12600 

06250 

ADO  STORED  PRODUCT  AND 

03700 

ENT 

B7*00 

04  176 

12700 

00000 

PREVIOUS  PRODUCT  AND  STORE 

03701 

ENT 

01*1 

04  177 

12100 

00001 

03702 

RJP 

FLTPT 

04200 

65000 

06266 

03703 

SUB 

A«0*AN0T 

04201 

21500 

00000 

TEST  DENOMINATOR  *  0 

03704 

RJP 

LAT1PI 

04202 

65000 

04305 

L-900R  270DEGREES 

03  705 

ENT 

84*RAMC0S 

04203 

12400 

05546 

03706 

ENT 

B5*ALPHTAN 

04204 

12500 

05620 

03707 

ENT 

86  *BEL  PROD 

04205 

12600 

06242 

LI  10 

03710 

0371  1 

03712 

03713 

037  14 

03715 

03716 

03717 

03720 

03721 

03722 

03723 

03724 

03725 

03726 

03727 

03730 

03731 

03732 

03733 

03734 

03735 

03736 

03737 

03740 

03741 

03742 

03743 

03744 

03745 

03746 

03747 

03750 

03751 

03752 

03753 

03754 

03755 

03756 

03757 

03760 

03761 

03762 

03763 

03764 

03765 

03766 

03767 

03770 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*  7/ 1/65 


TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

ENT 

B7  *02 

04206 

12700 

00002 

ENT 

B  1  •  1 

04207 

12100 

00001 

RJP 

FLTPT 

04210 

65000 

06266 

MUL  TANALPHA  BY  COSLOMEGA 

ENT 

B4*BELPR00 

0421  1 

12400 

06242 

ENT 

B5*R AHSIN 

04212 

12500 

05544 

ENT 

86*BELDIFF 

04213 

12600 

06236 

ENT 

B7  *0  1 

04214 

12700 

00001 

SUB  SINLOMEGA  FROM  PROD 

ENT 

B  1*  1 

04215 

12100 

00001 

RJP 

FLTPT 

04216 

65000 

06266 

ENT 

A*W(LATEM)*AZERO 

04217 

11430 

05704 

CODE  TO  INDICATE  IF  TAN  INFINI 
TE 

YES 

JP 

LAT1PI 1 

04220 

61000 

0431  1 

ENT 

B4*BEL0IFF 

04221 

12400 

06236 

ENT 

B5*BEL$T0R 1 

04222 

12500 

06250 

ENT 

B6*BEL QUO  T 

04223 

12600 

06246 

ENT 

B7*03 

04224 

12700 

00003 

ENT 

B  1  •  1 

04225 

12100 

00001 

RJP 

FLTPT 

04226 

65000 

06266 

OIV  ABOVE  DIFF  BY  ST0R1  1DEN0M 
) 

PUT 

W(BELQU0T)*W(BEL$T0R1 1 

04227 

04230 

10030 

14030 

06246 

06250 

PUT 

W( BELQUOT* 1 1*W(BELST0R1*1 1 

04231 

04232 

10030 

14030 

06247 

06251 

ARCTAN-ARCSIN  OF  A  $SQ  DIV 

ENT 

B4*BEL0U0T 

04233 

12400 

06246 

0Y  SQ  RT  1 ♦A  SO 

ENT 

B5*BELQU0T 

04234 

12500 

06246 

ENT 

B6*0EL  PROD 

04235 

12600 

06242 

A  SQUARED 

ENT 

B7  *02 

04236 

12700 

00002 

ENT 

61*1 

04237 

12100 

00001 

RJP 

FLTPT 

04240 

65000 

06266 

ENT 

B4*FLT0NE 

04241 

12400 

06136 

ENT 

B5*BEL  PROD 

04242 

12500 

06242 

ENT 

B6*BELSUM 

04243 

12600 

06244 

ENT 

B7  *00 

04244 

12700 

00000 

ENT 

61*1 

04245 

12100 

00001 

RJP 

FLTPT 

04246 

65000 

06266 

1  ♦A  SQ 

ENT 

B4*BELSUM 

04247 

12400 

06244 

ENT 

B6*BELST0R2 

04250 

12600 

06252 

ENT 

B7*  1 2 

04251 

12700 

00012 

SQ  RT  OF  SUM 

ENT 

01*1 

04252 

12100 

00001 

RJP 

FLTPT 

04253 

65000 

06266 

ENT 

B4*BELST0R 1 

04254 

12400 

06250 

ENT 

85*BELST0R2 

04255 

12500 

06252 

ENT 

B6*BELQU0T 

04256 

12600 

06246 

ENT 

B7*03 

04257 

12700 

00003 

0 1 0  IS  ION  OF  A  BY  SQ  RT 

ENT 

01*1 

04260 

12100 

00001 

RJP 

FLTPT 

04261 

65000 

06266 

ENT 

04*BELQUOT 

04262 

12400 

06246 

ARC  SIN 

ENT 

B6*LL 

04263 

12600 

05707 

ENT 

07*17 

04264 

12700 

00017 

ENT 

81*1 

04265 

12100 

00001 

RJP 

FLTPT 

04266 

65000 

06266 

ENT 

A* W ( L  L  1 

04267 

1  1030 

05707 

TEST  ARCTAN  LESS  OR  -2PI 

ENT 

0*W( L  L ♦  1 1 

04270 

10030 

05710 

120 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*  7/ 1 /65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

03771 

RJP 

M0D2PI 

04271 

65000 

03752 

I  LESS  OR  *2P I 

• 

03772 

STR 

A*W(LL) 

04272 

15030 

05707 

• 

03773 

STR 

Q*W(LLH  ) 

04273 

14030 

05710 

• 

03774  LATH 

ENT 

B4*0 

04274 

12400 

00000 

NORMAL  EXIT 

• 

03775  LAT12 

ENT 

B5*0 

04275 

12500 

00000 

• 

03776  LAT13 

ENT 

B6*0 

04276 

12600 

00000 

• 

03777  LAT14 

ENT 

B7*0 

04277 

12700 

00000 

• 

04000  LAT15 

ENT 

B 1  *0 

04300 

12100 

00000 

• 

04001 

RPL 

Y+HLILAT1) 

04301 

36010 

04  146 

• 

04  002 

ENT 

A* W( LL  ) 

04  302 

11030 

05707 

• 

04003 

ENT 

Q* W( LL* 1 ) 

04303 

10030 

05710 

• 

04004 

EXIT 

04304 

61010 

04  146 

• 

04005  LAT1PI 

ENTRY 

04305 

61000 

00000 

04006 

PUT 

1*W( LATEM ) 

04306 

10000 

00001 

04307 

14030 

05704 

• 

04007 

EXIT 

04310 

61010 

04305 

04010  LAT1PI 1 

ENT 

A*W(BELDIFF) * APOS 

0431  1 

11630 

06236 

TAN  P  OR  - 

04011 

ENT 

A*W<  THFPI ) »SK  I P 

04312 

1  1130 

06153 

TAN  -  L  *  270 

04012 

ENT 

A*  WI HFP I ) *SK I P 

04313 

11130 

06150 

TAN  P  L*  90 

• 

04013 

ENT 

Q*W<THFPI*1)*SKIP 

04314 

10130 

06154 

« 

04014 

ENT 

0*  W( HFP I ♦ 1 ) 

04315 

10030 

06151 

• 

04015 

JP 

LAT 1 1-3 

04316 

6  1000 

04271 

• 

04016  SINALF 

ENTRY 

04317 

61000 

00000 

• 

04017 

ENT 

Q*61 000 

04320 

10000 

61000 

INITIALIZATION 

# 

04020 

STR 

0*U( ALP7 ) 

04321 

14020 

04431 

« 

04021 

STR 

0*U( ALP2) 

04322 

14020 

04416 

SET  SW  TO  B 

# 

04022 

STR 

0»U( ALP9) 

04323 

14020 

04457 

• 

04023 

JP 

ALP  1 

04324 

61000 

04332 

• 

04024  ALPHA 

ENTRY 

04325 

61000 

00000 

# 

04  025 

ENT 

Q*  12000 

04326 

10000 

12000 

INITIALIZATION 

• 

04026 

STR 

0«U( ALP9) 

04327 

14020 

04457 

• 

04027 

STR 

0*U( ALP7 ) 

04  330 

14020 

04431 

04030 

STR 

Q*U(ALP2) 

04331 

14020 

04416 

SET  SW  TO  A 

# 

04031  ALP  1 

STR 

B4*L(ALP3) 

04332 

16410 

04424 

• 

04032 

STR 

B5«L ( ALP4 ) 

04333 

16510 

04425 

• 

04033 

STR 

B6*L( ALP5) 

04334 

16610 

04426 

• 

04034 

STR 

B7*L( ALP6) 

04335 

16710 

04427 

# 

04035 

STR 

B  1  *L ( ALP  10) 

04336 

16110 

04430 

• 

04036 

ENT 

A*37765 

04337 

1  1000 

37765 

04037 

COM 

A*W(DELTCOS)*YMORE 

04340 

04730 

05562 

TEST  EXPONENT  SMALL^O 

04040 

JP 

ALPERR2 

04341 

61000 

04461 

04041 

ENT 

B4*I ICOS 

04342 

12400 

05542 

0404  2 

ENT 

B5*RAMC0S 

04343 

12500 

05546 

04043 

ENT 

B6*BELPR00 

04344 

12600 

06242 

• 

04044 

ENT 

B7*02 

04345 

12700 

00002 

# 

04045 

ENT 

B  1  •  1 

04346 

12100 

00001 

• 

04046 

RJP 

FLTPT 

04347 

65000 

06266 

04047 

ENT 

B4«LLSIN 

04350 

12400 

05622 

04050 

ENT 

B5»BELPR0D 

043S1 

12500 

06242 

• 

04051 

ENT 

B6*BELST0R1 

04352 

12600 

06250 

• 

04052 

ENT 

B  1  •  1 

04353 

12100 

0000  1 

• 

04053 

RJP 

FLTPT 

04354 

65000 

06266 

MUL  PROD  BY  SINL 

04054 

ENT 

B4*R AMS  IN 

04355 

12400 

05544 

BELT  P 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CARDS 


LI  ID  LABEL  TA  STATEMENT 


04055 

ENT 

B5«LLC0S 

04056 

ENT 

B6*BELPR0D 

04057 

ENT 

B7  »02 

04060 

ENT 

BUI 

04061 

RJP 

FLTPT 

04062 

ENT 

B4»BELPR0D 

04063 

ENT 

B5«BELST0R 1 

04064 

ENT 

B6«BEL  SUM 

04065 

ENT 

B7  •00 

04066 

ENT 

BUI 

04067 

RJP 

FLTPT 

04070 

ENT 

B4«BELSUM 

04071 

ENT 

B5*0ELTC0S 

04072 

ENT 

B6* ALPHSI N 

04073 

ENT 

B7*03 

04074 

ENT 

BUI 

04075 

RJP 

FLTPT 

04076 

ENT 

A*H( ALPHSIN) 

04077 

COM 

A»40002«YM0RE 

04  100 

JP 

ALPERR2 

04  101 

SUB 

A»  4000 1 • A  ZERO 

04  102 

JP 

ALP2 

04  103 

ENT 

A«WC ALPHSIN^I ) • APOS 

04  104 

CP 

A* 

04  105 

SUB 

a»w<fltone*iuanot 

04106 

JP 

ALP2 

04  107 

COM 

A*77* YMORE 

04  110 

JP 

ALPERR2 

04  111 

ENT 

A»W { FLTONE* 1 ) 

04112 

ENT 

0*W(  ALPHS  IN'*- 1  UONEG 

04113 

STR 

A*W( ALPHS IN* 1 USKIP 

04  1  14 

STR 

A*CPW(ALPHSIN>11 

041  15 

ALP2 

JP 

ALP3 

04116 

ENT 

B4 • AL  PHSI N 

04117 

ENT 

B6-ALPH 

04  120 

ENT 

B7  •  1  7 

04121 

ENT 

BUI 

04  122 

RJP 

FLTPT 

04123 

ALP3 

ENT 

84  *0 

04  124 

ALP4 

ENT 

B5«0 

04125 

ALP5 

ENT 

B6*0 

04  126 

ALP6 

ENT 

B7  »0 

04127 

ALP  10 

ENT 

BU0 

04  130 

ALP7 

JP 

ALPS 

04131 

RPL 

Y+1»LI ALPHA) 

04  132 

ENT 

A«W(ALPH) 

04133 

ENT 

Q* W( ALPHfU  1 U  QNEG 

04134 

JP 

*♦6 

04135 

ENT 

84  *AL  PH 

04136 

ENT 

B5»TTWPI 

04  137 

ENT 

B6»B4 

LOC 

F  JKB 

Y 

NOTES 

04356 

12500 

05630 

04357 

12600 

06242 

04360 

12700 

00002 

04361 

12100 

00001 

04362 

65000 

06266 

MUL  SINRAM  X  COSL 

04363 

12400 

06242 

04364 

12500 

06250 

04365 

12600 

06244 

04366 

12700 

00000 

04  367 

12100 

00001 

04370 

65000 

06266 

ADD  PROD  ♦  MULTIPLY  STORAGE 

04371 

12400 

06244 

04372 

12500 

05562 

04373 

12600 

05574 

04374 

12700 

00003 

04375 

12100 

00001 

04376 

65000 

06266 

DIVIDE  SUM  BY  COSDELTA 

04377 

1  1030 

05574 

TEST  SINALPHA  LESS  OR  ■  TO  1 

04400 

04700 

40002 

EXP  I  OR  LESS 

04401 

61000 

04461 

044  02 

21400 

4  0001 

EXP  1 

04403 

61000 

04416 

EXP  LESS  THAN  1  NUM  GOOD 

04404 

1  1630 

05575 

04405 

15040 

00000 

NO  COMPLEMENT 

04  4  06 

21530 

06137 

04407 

61000 

04416 

04410 

04700 

00077 

04411 

6  1000 

04461 

044  12 

11030 

06137 

04413 

10330 

05575 

04414 

15130 

05575 

04415 

15070 

05575 

04416 

61000 

04424 

04417 

12400 

05574 

04420 

12600 

05460 

04421 

12700 

00017 

044  22 

12100 

00001 

04423 

65000 

06266 

ARCSIN  ROUTINE 

04424 

12400 

00000 

NORMAL  EXIT 

04425 

12500 

00000 

04426 

12600 

00000 

04427 

12700 

00000 

04430 

12100 

00000 

04431 

61000 

04446 

04  432 

36010 

04325 

EXIT  FOR  ALPHA 

04433 

1  1030 

05460 

04434 

10330 

05461 

04435 

61000 

04443 

YES 

y 

04  4  36 

12400 

05460 

A 

04437 

12500 

06165 

X 

04440 

12604 

00000 

X 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/1/65 


to 

to 


CARDS 


LI  ID  LABEL  TA  STATEMENT 


04140 

ENT 

B7»00 

04141 

RJP 

FLTPT 

04  142 

ENT 

A»W( ALPH1 

04  143 

ENT 

0«W( ALPH* 1 ) 

04  144 

EXIT 

04145 

ALPS 

RPL 

Y*  UL  ( SINALF ) 

04146 

FNT 

A»W ( ALPHS IN) 

04147 

ENT 

Q»W( ALPHS IN* 1 ) 

04  150 

JP 

SINALF 

04151 

ALPERR 

ENT 

B4  »L ( AL  P  3 ) 

04  152 

ENT 

B5»L ( ALP4 ) 

04  153 

ENT 

B6*L(ALP5) 

04  154 

ENT 

B7  »L ( ALP6 ) 

04  155 

ENT 

B 1 »L ( ALP  1 0 ) 

04  156 

ALP9 

JP 

SINALF 

04  157 

JP 

ALPHA 

04  160 

ALPERR2 

ENT 

A»2 

04161 

JP 

ALPERR 

04162 

BRANGE 

ENTRY 

04163 

STR 

B4  *L ( RANI  ) 

04  164 

STR 

B5#L I R AN2 1 

04  165 

STR 

B6  *L I RAN3 ) 

04166 

STR 

B7  »L { R AN4 1 

04167 

STR 

B1  •LIRAN6) 

04  170 

ENT 

B4  »LL 

04171 

ENT 

B5»Z0MEGA 

04  172 

ENT 

B6»BEL0IFF 

04  173 

ENT 

B7»0 1 

04  174 

ENT 

B 1  •  1 

04  175 

RJP 

FLTPT 

04176 

ENT 

A»  W( BE  LD I FF ) 

04177 

ENT 

0* W( BELDI FF+  1  ) 

04200 

RJP 

M0D2PI 

04201 

RAN5 

STR 

A»W( BELDI FF ) 

04202 

STR 

Q»WI8ELDIFF*1  ) 

04203 

ENT 

B4«BEL0IFF 

04204 

ENT 

B6»BELC0S 

04205 

ENT 

B7*14 

04206 

ENT 

B  1  •  1 

04207 

RJP 

FLTPT 

04210 

ENT 

B4»EE 

0421  1 

ENT 

B5*BELC0S 

04212 

ENT 

B6»BELPR0D 

042  13 

ENT 

B7  *02 

042  14 

FNT 

B  1  •  1 

04215 

RJP 

FLTPT 

04216 

ENT 

B4»FLT0NE 

042  17 

ENT 

B5»BEL  PROD 

04220 

ENT 

B6*BELSUM 

04221 

ENT 

B7  »00 

04222 

ENT 

BUI 

04223 

RJP 

FLTPT 

04224 

ENT 

A*W(  BELSUM*  1  )  * ANOT 

NOTES 


LOC  F  JKB  Y 

04441  12700  00000  X 

04442  65000  06266  X 

04443  1  1030  05460 

04444  10030  05461 

04445  61010  04325 

04446  36010  04317 

04447  11030  05574 

04450  10030  05575 

04451  61000  04317 

04452  12410  04424 

04453  12510  04425 

04454  12610  04426 

04455  12710  04427 

04456  12110  04430 


04457 

61000 

04317 

ECI 

04460 

61000 

04325 

EXI 

04461 

11000 

00002 

04462 

61000 

04452 

04463 

61000 

00000 

04464 

16410 

04535 

INI 

04465 

16510 

04536 

04466 

16610 

04537 

044  67 

16710 

04540 

04470 

161  10 

0454  1 

04471 

12400 

05707 

04472 

12500 

05725 

04473 

12600 

06236 

04474 

12700 

00001 

04475 

12100 

00001 

04476 

65000 

06266 

04477 

1  1030 

06236 

04500 

10030 

06237 

04501 

65000 

03752 

IS 

04502 

15030 

06236 

04503 

14030 

06237 

04504 

12400 

06236 

COS 

04505 

12600 

06240 

04506 

12700 

00014 

04507 

12100 

00001 

04510 

65000 

06266 

COS 

04511 

12400 

05430 

04512 

12500 

06240 

04513 

12600 

06242 

04514 

12700 

00002 

04515 

12100 

00001 

04516 

65000 

06266 

MUL 

04517 

12400 

06136 

04520 

12500 

06242 

04521 

12600 

06244 

04522 

12700 

00000 

ASS 

04523 

12100 

00001 

04524 

65000 

06266 

04525 

11530 

06245 

T  SINALPHA 
T  ALPHA 

TIALIZATION 

ABS  VAL  QMS  LESS  0R*2PI 

ROUTINE 

OF  L-  OMEGA 

E  TIMES  CDS 

1  ♦  ( E  X  C0S1 


BELTP 


to 

00 


CAROS  LI  ID  LABEL 

04225 

04226 

04227 

04230 

04231 

04232 

04233 

.  04234  RANI 

.  04235  RAN2 

•  04236  RAN3 

.  04237  RAN4 

.  04240  RAN6 

•  04241 

.  04242 

.  04243 

•  04244 

.  04245  RANERR 

•  04246 
04247 

.  04250 

04251 
.  04252 

.  04253  RANERR24 

04254 

04255  COSALF 
.  04256 

04257 
.  04260 

.  04261 

04262 
.  04263 

.  04264 

04265 

•  04266 

•  04267 

.  04270 

.  04271 

.  04272 

.  04273 

.  04274 

04275 

•  04276 
04277 
04300 

.  04  301 

.  04302 

•  04303 

.  04  304 

04305 
.  04  306 

04307 
.  04310 


TA  STATEMENT 


JP 

RANERR24 

ENT 

B4  *NUMRAN 

ENT 

B5«BELSUM 

ENT 

B6  *RR 

ENT 

B7*03 

ENT 

61*1 

RJP 

FLTPT 

ENT 

B4  *0 

ENT 

B5*0 

ENT 

B6*0 

ENT 

B7*0 

ENT 

B 1  *0 

RPL 

Y ♦ 1 *L ( BRANGE 1 

ENT 

A • W ( RR ) 

ENT 

EXIT 

Q«W(RR+1 ) 

ENT 

84  *L ( R AN  1  1 

ENT 

B5*L ( RAN2  ) 

ENT 

B6*L ( RAN3 ) 

ENT 

B7*L ( RAN4 ) 

ENT 

EXIT 

81*L(RAN6) 

ENT 

A*  5 

JP 

RANERR 

ENTRY 

STR 

B4  *L 1  COS A2 ) 

STR 

B5*L ( C0SA3) 

STR 

B6*L < C0SA4 ) 

STR 

B7*L ( C0SA5 1 

STR 

BUL1C0SA6J 

ENT 

B4*I ICOS 

ENT 

B5  *R AMS  I N 

ENT 

B6*BELPR0D 

ENT 

B7  *02 

ENT 

B  1  •  1 

RJP 

FLTPT 

ENT 

B4*BELPR00 

ENT 

B5*LLS IN 

ENT 

B6*BE  LSTOR 1 

ENT 

B  1  *  1 

RJP 

FL  TP  T 

ENT 

B4*RAMC0S 

ENT 

B5*LLC0S 

ENT 

B6  *BEL  PROO 

ENT 

B  1  *  l 

RJP 

FLTPT 

ENT 

B4  *BELPROO 

ENT 

B5*BELST0R1 

ENT 

B6*BELDIFF 

ENT 

B7*0 1 

ENT 

B  1  *  1 

RJP 

FLTPT 

OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


LOC 

F  JKB 

Y 

NOTES 

04526 

61000 

04554 

YES 

ERROR  IT  IS  DENOMINATOR 

04527 

12400 

06163 

04530 

12500 

06244 

04531 

12600 

05731 

04532 

12700 

00003 

04533 

12100 

00001 

04534 

65000 

06266 

04535 

12400 

00000 

NORMAL  EXIT 

04536 

12500 

00000 

04537 

12600 

00000 

04540 

12700 

00000 

04541 

12100 

00000 

04542 

36010 

04463 

04  543 

11030 

0573  1 

04544 

10030 

05732 

04545 

61010 

04463 

04546 

12410 

04535 

ERROR  EXIT 

04547 

12510 

04536 

04550 

12610 

04537 

04551 

12710 

04540 

04552 

121  10 

04541 

04553 

61010 

04463 

04554 

1  1000 

00005 

04555 

61000 

04546 

04556 

61000 

00000 

04557 

164)0 

04646 

INITIALIZATION 

04560 

16510 

04647 

04561 

16610 

04650 

04562 

16710 

04651 

04563 

161  10 

04652 

04564 

12400 

05542 

04565 

12500 

05544 

04566 

12600 

06242 

04567 

12700 

00002 

MUL 

COSI.SINLOMEGA 

04570 

12100 

00001 

04571 

65000 

06266 

04  572 

12400 

06242 

04573 

12500 

05622 

04574 

12600 

06250 

HUL 

PREVIOUS  PROO  BY  SINL  AND 

STORE 

04575 

12100 

00001 

04576 

65000 

06266 

04577 

12400 

05546 

04600 

12500 

05630 

04601 

12600 

06242 

04602 

12100 

00001 

04603 

65000 

06266 

MUL 

COSLOMEGA  X  COSL 

04604 

12400 

06242 

04605 

12500 

06250 

04606 

12600 

06236 

04607 

12700 

00001 

SUB 

STORED  PROD  FROM 

04610 

12100 

00001 

04611 

65000 

06266 

COSLOMEGA  X  COSL 

BELTP 


SPURT  OUTPUT  NO*  210 
P0NT0N*7/l/65 


to 


CAROS 


LI  10 

label 

TA  STATEMENT 

04  311 

ENT 

B4»BEL0IFF 

04312 

ENT 

B5»0ELTC0S 

04313 

ENT 

B6*ALPHC0S 

04314 

ENT 

B7*03 

04315 

ENT 

BUI 

04316 

RJP 

FLTPT 

04317 

ENT 

A*W( ALPHCOS! 

04320 

COM 

A*40002*YM0RE 

04321 

JP 

C0SAERR22 

04322 

SUB 

A»4000UAZER0 

04323 

JP 

C0SA2 

04324 

ENT 

A*W( ALPHCOS*  1  UAPOS 

04325 

CP 

A 

04326 

SUB 

A*WIFLT0NE*1  UANOT 

04327 

JP 

C0SA2 

04330 

COM 

A*77»YM0RE 

04331 

JP 

COSAERR 

04332 

ENT 

A#W<FLTONE*U 

04333 

ENT 

Q*W1  ALPHCOS*  1  UONEG 

04334 

STR 

A«W(ALPHCOS*  1USKIP 

04335 

STR 

A«CPH(ALPHC0S*1) 

04336 

JP 

C0SA2 

04337 

COSAERR 

ENT 

B4  *L ( C0SA2) 

04340 

ENT 

B5*L  C C0SA3) 

04341 

ENT 

B6*L  t C0SA4 ) 

04342 

ENT 

B7*L ( C0SA5) 

04343 

ENT 

BULIC0SA6) 

04344 

EXIT 

04345 

C0SA2 

ENT 

B4*0 

04346 

C0SA3 

ENT 

B5*0 

04347 

C0SA4 

ENT 

B6*0 

04350 

C0SA5 

ENT 

$7  *0 

04351 

C0SA6 

ENT 

BUO 

04352 

RPL 

Y*  1*L ICOSALF) 

04353 

ENT 

A«W( ALPHCOS) 

04354 

ENT 

0*WI ALPHCOS* 1 ) 

04355 

EXIT 

04356 

C0SAERR22 

ENT 

A*4 

04357 

JP 

COSAERR 

04360 

OECLIN 

ENTRY 

04361 

ENT 

Q*  12000 

04362 

STR 

Q*U( S I N02 ) 

04363 

STR 

Q*UI SIN01 0) 

04364 

JP 

S I  NO  1 

04365 

SINOECLIN 

ENTRY 

04366 

ENT 

Q*6 1000 

04367 

STR 

Q*UI S I N02 ) 

04370 

STR 

Q*U( S INO 1 0 ) 

04371 

S I  N0 1 

STR 

B4*L  C  SIND4 ) 

04372 

STR 

B5*L( SIN05) 

04373 

STR 

B6*L ( SIND6) 

04374 

STR 

B7«L(SIN07) 

04375 

STR 

B  UL(  SIN08) 

NOTES 


LOC 

F  JKB 

Y 

04612 

12400 

06236 

04613 

12500 

05562 

04614 

12600 

05606 

04615 

12700 

00003 

04616 

12100 

00001 

04617 

65000 

06266 

04620 

11030 

05606 

04621 

04700 

40002 

04622 

61000 

04657 

04623 

21400 

40001 

04624 

61000 

04646 

0462S 

11630 

05607 

04626 

15040 

00000 

04627 

21530 

06137 

04630 

61000 

04646 

04631 

04700 

00077 

04632 

61000 

04640 

04633 

11030 

06137 

04634 

10330 

05607 

04635 

15130 

05607 

04636 

15070 

05607 

04637 

61000 

04646 

04640 

12410 

04646 

04641 

12510 

04647 

04642 

12610 

04650 

04643 

12710 

04651 

04644 

12110 

04652 

04645 

61010 

04556 

04646 

12400 

00000 

04647 

12500 

00000 

04650 

12600 

00000 

04651 

12700 

00000 

04652 

12100 

00000 

04653 

36010 

04S56 

04654 

11030 

05606 

04655 

10030 

05607 

04656 

61010 

04556 

04657 

1  1000 

00004 

04660 

61000 

04640 

04661 

61000 

00000 

04662 

10000 

12000 

04663 

14020 

04705 

04664 

14020 

04725 

04665 

61000 

04672 

04666 

61000 

00000 

04667 

10000 

61000 

04670 

14020 

04705 

04671 

14020 

04725 

04672 

16410 

04720 

04673 

16510 

04721 

04674 

16610 

04722 

04675 

16710 

04723 

04676 

161  10 

04724 

OIVIDE  01 FF  BY  COSDELT A 


TEST  COSALPHA  *1 
EXP  LESS  THAN  2 

TEST  FRA  POS 

TEST  FOR  FRA  NOT  -1 


ERROR  EXIT 


INITIALIZATION 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N.T/1/65 


CARDS  LI  10  LABEL 

.  04376 

04377 
.  04400 

04401 
.  04402 

04403 

04404  SIN02 
.  04405 

.  04406 

.  04407 

.  04410 

.  04411 

.  04412 

.  04413 

.  04414 

.  04415  SIN03 

.  04416 

.  04417  SIN04 

04420  SIND5 
.  04421  SIND6 

.  04422  S1N07 

.  04423  SIN08 

04424  SIN010 
.  04425 

.  04426  SIND9 

.  04427  ALPHAGNEW 

.  04430 

.  04431 

.  04432 

.  04433 

•  04434 

.  04435 

.  04436 

.  04437 

.  04440 

•  04441 

.  04442 

.  04443 

.  04444 

.  04445 

.  04446 

.  04447 

04450 
04451 
.  04452 

.  04453 

.  04454 

04455 
.  04456 

.  04457 


TA  STATEMENT 


ENT 

B4 • I I  SIN 

ENT 

B5*LL$ I N 

ENT 

B6«0ELTS I N 

ENT 

B7*02 

ENT 

B 1  •  1 

RJP 

FLTPT 

JP 

SIN03 

ENT 

B4*0ELTS1N 

ENT 

B6»0ELT 

ENT 

B7®  1 7 

ENT 

B  1  •  1 

RJP 

FLTPT 

ENT 

A»W( DELT) 

ENT 

Q«W( DELT+  1 ) 

JP 

SIN04 

ENT 

Q*W( DELTS IN+1 1 

ENT 

A*W(DELTSIN) 

ENT 

B4*0 

ENT 

B5*0 

ENT 

B6*0 

ENT 

B7  *0 

ENT 

B  1  *0 

JP 

SIN09 

JP 

OECLIN 

JP 

SINOECLIN 

ENTRY 

STR 

B4«L ( ASTRB4 1 

STR 

B5*L ( ASTRB5) 

STR 

B6*L ( ASTRB6) 

STR 

B7«L 1 ASTRB71 

ENT 

B4*32 

ENT 

B5»S I OERT I ME 

ENT 

B6«S I OERFLTPT 

ENT 

B7»  10 

RJP 

FLTPT 

ENT 

B4  *B6 

ENT 

B5*LAMDR 

ENT 

B6«S  I OERL AMOR 

ENT 

B7  »0  1 

RJP 

FLTPT 

ENT 

B4*0 

ENT 

B5»FRAMES IZE 

ENT 

B6*FRAMEFLTPT 

ENT 

B7«  1 0 

RJP 

FLTPT 

ENT 

B4*B6 

ENT 

B5*RAGREENC0N 

ENT 

B6»FRAMEC0N 

ENT 

B7  *02 

RJP 

FLTPT 

notes 


LOC 

F  JKB 

Y 

04677 

12400 

05540 

04700 

12500 

05622 

04701 

12600 

05550 

04702 

12700 

00002 

04703 

12100 

00001 

04704 

65000 

06266 

04705 

61000 

04716 

04706 

12400 

05550 

04707 

12600 

05452 

04710 

12700 

00017 

04711 

12100 

00001 

04712 

65000 

06266 

04713 

11030 

05452 

04714 

10030 

05453 

04715 

61000 

04720 

04716 

10030 

05551 

04717 

1  1030 

05550 

04720 

12400 

00000 

04721 

12500 

00000 

04722 

12600 

00000 

04723 

12700 

00000 

04724 

12100 

00000 

04725 

61000 

04727 

04726 

61000 

04661 

04727 

61000 

04666 

04730 

61000 

00000 

04731 

16410 

04777 

04732 

16510 

05000 

04733 

16610 

05001 

04734 

16710 

05002 

04735 

12400 

00032 

04736 

12500 

63012 

04737 

12600 

06111 

04740 

12700 

00010 

04741 

65000 

06266 

04742 

12406 

00000 

04743 

12500 

05765 

04744 

12600 

06113 

04745 

12700 

00001 

04746 

65000 

06266 

04747 

12400 

00000 

04750 

12500 

63101 

04751 

12600 

06107 

04752 

12700 

00010 

04753 

65000 

06266 

04754 

12406 

00000 

04  755 

12500 

06121 

04756 

12600 

06105 

04757 

12700 

00002 

04760 

65000 

06266 

MULT  SINI  BY  SINL 


LEAVE  FRA  IN  0 
LEAVE  EXP  IN  A 
NORMAL  EXIT 


X 

X 

X 

X 

X 

X 

X 

X 

X 

CONVERT  SIDERTIME  TO  FLTPT 
X 
X 
X 
X 
X 

SIOER  -  LAMDR 
X 
X 
X 
X 
X 

CONVERT  FRAMESIZE 
X 
X 
X 
X 
X 

CON  TIMES  FRAMESIZE 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N»7/ 1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

04460 

ENT 

A»  W( NCOOE ) • ANOT 

04761 

11530 

05703 

X 

04461 

JP 

7 

04762 

61000 

04771 

04462 

ENT 

B4#B6 

04763 

12406 

00000 

X 

04463 

ENT 

B5»S IOERL AMOR 

04764 

12500 

06113 

X 

# 

04464 

ENT 

B6»ALPHG 

04765 

12600 

05717 

X 

• 

04465 

ENT 

B7  »00 

04766 

12700 

00000 

RA  -  LAMOR  ♦  FRAMES  I ZE  ( CON ) 

v 

• 

04466 

R  JP 

FLTPT 

04767 

65000 

06266 

04467 

JP 

$♦5 

04  770 

61000 

04775 

• 

04470 

MOVE 

2»SI DERLAMDR* ALPHG 

04771 

10030 

06113 

04772 

14030 

05717 

04773 

10030 

061  14 

04774 

14030 

05720 

• 

04471 

ENT 

A* W( ALPHG ) 

04775 

11030 

05717 

X 

• 

04472 

ENT 

Q*  W( AL  PHG+ 1 ) 

04776 

10030 

05720 

X 

04473  ASTRB4 

ENT 

B4  »0 

04777 

12400 

00000 

X 

04474  ASTRB5 

ENT 

B5»0 

05000 

12500 

00000 

X 

04475  ASTRB6 

ENT 

B6»0 

05001 

12600 

00000 

X 

04476  ASTRB7 

ENT 

B7*0 

05002 

12700 

00000 

X 

04477 

EXIT 

05003 

61010 

04730 

X 

04500  PTSEL 

ENTRY 

05004 

61000 

00000 

04501 

ENT 

0*  12000 

05005 

10000 

12000 

INITIALIZATION 

04502 

str 

Q*U(PTS2> 

05006 

14020 

05037 

04503 

STR 

BUL(PTSBl) 

05007 

16110 

05276 

• 

04504 

STR 

B2»L( PTSB2) 

05010 

16210 

05277 

• 

04505 

STR 

B3»L ( PTSB3) 

0501  1 

16310 

05300 

• 

04506 

STR 

B4»L ( PTSB4 ) 

05012 

16410 

05301 

04507 

STR 

B5»L  <  PTSB5 ) 

05013 

16510 

05302 

04510 

STR 

B6*LI PTSB6) 

05014 

16610 

05303 

04511 

STR 

B7 •L ( PTSB7) 

05015 

16710 

05304 

04512 

ENT 

B3»0 

05016 

12300 

00000 

• 

04513  PTS1 

PUT 

W( ALPH1SIN+B3)*W< ALPHSIN) 

05017 

10033 

05576 

05020 

14030 

05574 

• 

04514 

PUT 

W( ALPH1SIN+1+B3>*W(ALPHSIN+ 1 ) 

05021 

10033 

05577 

05022 

14030 

05575 

• 

04515 

PUT 

W(ALPH1C0S+B3>*W(ALPHC0S1 

05023 

10033 

05610 

05024 

14030 

05606 

04516 

PUT 

W( ALPH1COS^1+B3)*W(ALPHCOS+ 1 > 

05025 

10033 

0561  1 

05026 

14030 

05607 

04517 

PUT 

W(DELT1SIN^B3)*W<DELTSIN) 

05027 

10033 

05552 

05030 

14030 

05550 

04520 

PUT 

W(DELT1SIN+1*B3)»W(0ELTSIN*1 1 

05031 

10033 

05553 

05032 

14030 

05551 

04521 

PUT 

W(0ELT1C0S+B3)»W(0ELTC0S) 

05033 

10033 

05564 

05034 

14030 

05562 

• 

04522 

PUT 

W10ELT  1COSM*B3)»W(DELTCOS*1  ) 

05035 

10033 

05565 

05036 

14030 

05563 

• 

04523  PTS2 

JP 

PTS3 

05037 

61000 

05107 

• 

04524 

R  JP 

ALPHAGNEW 

05040 

65000 

04730 

04525 

ENT 

B2*  1 

05041 

12200 

00001 

04526 

ENT 

B3»0 

05042 

12300 

00000 

04527 

ENT 

B4*ALPHG 

05043 

12400 

05717 

127 


BELTP 


CARDS  LI  ID  LABEL 

.  04530 

04  531 
04532 
04533 
.  04534 

.  04535 

.  04536 

04537 
.  04540 

.  04541 

•  04542 

.  04543 

.  04544 

.  04545 

.  04546 

.  04547 

.  04550 

04551 
.  04552 

.  04553 

.  04554 

.  04555 

.  04556 

04557 
.  04560 

•  04561 

.  04562 

.  04563 

04564 
.  04565 

.  04566 

.  04567 

.  04570 

.  04571 

.  04572 

.  04573  PTS3 

•  04574 
04575 

.  04576 

04577 
.  04600 

•  04601 

•  04602 

.  04603 

.  04604 

.  04605 

04606 
.  04607 

•  04610 

.  04611 

.  04612 

.  04613 

•  04614 


TA  STATEMENT 

ENT  B5*L AMOR 

ENT  B6« ALPHR 

ENT  B7*00 

ENT  B 1 • 1 

RJP  FLTPT 

ENT  A*  W( ALPHR ) 

ENT  Q»W(ALPHR*1) 

RJP  M0D2PI 

STR  A  •  W( ALPHR ) 

STR  Q* W ( AL  PHR ♦ 1 1 

ENT  B4*ALPHR 

ENT  86* ALPHR  SIN 

ENT  B7*  13 

ENT  B 1 • 1 

RJP  FLTPT 

ENT  B6*ALPHRC0S 

ENT  B7*  14 

ENT  B 1  *  1 

RJP  FLTPT 

ENT  A«W(GLR) 

ENT  Q*W(GLR*1) 
RJP  M0D2P! 

STR  A*W ( DE  LTR ) 
STR  Q»W(DELTR+ 1 1 
STR  A*WI GLR ) 

STR  Q*  W ( GL  R* 1  ) 
ENT  B4  «OEL  TR 
ENT  B6*0ELTRSIN 
ENT  B7*  1 3 
ENT  B 1 • 1 
RJP  FLTPT 
ENT  B6*0EL  TRCOS 
ENT  B7 • 1 4 
ENT  BUI 
RJP  FLTPT 
ENT  0*61000 
STR  0«U( PT  S2 1 
ENT  B4-0ELTSIN 
ENT  B5-0ELTRSIN 
ENT  B6*BELST0R1 
ENT  B7*02 
ENT  BUI 
RJP  FLTPT 
ENT  B4*0ELTRC0S 
ENT  B5*ALPHRS IN 
ENT  86-BELPROD 
ENT  BUI 
RJP  FLTPT 
ENT  B4  *BEL  PROD 
ENT  B5*0EL  TCOS 
ENT  BUI 
RJP  FLTPT 
ENT  B4  «BELPROD 


T  OUTPUT  NO.  210 
PONTON*7/ 1/65 


LOC 

F  JKB 

V 

NOTES 

05044 

12500 

05765 

05045 

12600 

05723 

05046 

12700 

00000 

05047 

12100 

00001 

05050 

65000 

06266 

05051 

1  1030 

05723 

EXP 

IN  A  REG 

05052 

10030 

05724 

05053 

65000 

03752 

05054 

15030 

05723 

STORE  NEW  NUMBER  IN  ALP-IAR 

05055 

14030 

05724 

05056 

12400 

05723 

05057 

12600 

05636 

05060 

12700 

00013 

05061 

12100 

0000  1 

05062 

65000 

06266 

SINE 

:  OF  ALPHA* 

05063 

12600 

0S640 

05064 

12700 

00014 

COS 

OF  ALPHAR 

05065 

12100 

00001 

05066 

65000 

06266 

05067 

1  1030 

0616  1 

05070 

10030 

06162 

05071 

65000 

03752 

05072 

15030 

05721 

NEW 

OELTAR 

05073 

14030 

05722 

05074 

15030 

06161 

05075 

14030 

06162 

05076 

12400 

05721 

05077 

12600 

05642 

05100 

12700 

00013 

05101 

12100 

00001 

05102 

65000 

06266 

SIN 

OELTAR 

05103 

12600 

05644 

05104 

12700 

00014 

05105 

12100 

0000  1 

05106 

65000 

06266 

COS 

OELTAR 

05107 

10000 

61000 

CALCULATE  COS  GAMMA 

05110 

14020 

05037 

05111 

12400 

05550 

05112 

12500 

05642 

05113 

12600 

06250 

05114 

12700 

00002 

MUL 

SINOELTA  BY  SINOELTAR 

05115 

12100 

00001 

05116 

65000 

06266 

AND 

STORE  IN  BELSTOR 1 

05  117 

12400 

05644 

05120 

12500 

05636 

05121 

12600 

06242 

05122 

12100 

00001 

05123 

65000 

06266 

MUL 

SINALPHAR  BY  COSALPHAR 

05124 

12400 

06242 

05125 

12500 

05562 

05126 

12100 

00001 

05127 

65000 

06266 

MUL 

PROO  BY  COSOELTA 

05130 

12400 

06242 

BELTP 


SPURT  OUTPUT  NO.  210 
PONTON*// 1 /65 


CARDS 


LI  10  label  TA  STAT6HENT 


04615 

ENT 

04616 

ENT 

04617 

ENT 

04620 

ENT 

04621 

RJP 

04622 

ENT 

04623 

ENT 

04624 

ENT 

04625 

ENT 

04626 

ENT 

04627 

RJP 

04  630 

ENT 

04631 

ENT 

04632 

ENT 

04633 

RJP 

04634 

ENT 

04635 

ENT 

04636 

ENT 

04637 

ENT 

04640 

ENT 

04641 

RJP 

04642 

ENT 

04643 

ENT 

04644 

ENT 

04645 

ENT 

04646 

ENT 

04647 

RJP 

04  650 

ENT 

04651 

ENT 

04652 

ENT 

04653 

ENT 

04654 

RJP 

04655 

ENT 

04656 

COM 

04657 

JP 

04660 

SUB 

04661 

JP 

04  662 

ENT 

04663 

CP 

04664 

SUB 

04665 

JP 

04666 

COM 

04667 

JP 

04670 

ENT 

04671 

ENT 

04672 

STR 

04673 

STR 

04674  PTS15 

PUT 

04675 

PUT 

04676 

ENT 

04677 

BSK 

B5*ALPHSIN 
B6*BELST0R2 
B7  *02 
B 1  *  1 
FLTPT 

B4*DELTRC0S 
B5*ALPHRC0S 
B6*BEL  PROD 
B7*02 
61*1 
FLTPT 

B4*BELPR00 
B5*0EL  TCOS 
B 1  •  1 
FLTPT 

B4*BELPR00 

B5*ALPHC0S 

B6*BELPR00 

B7  *02 

BUI 

FLTPT 

B4*BELPR0D 

B5*BELST0R2 

B6*BELSUM 

B7  *00 

BUI 

FLTPT 

B4*BELSUM 

B5*BELST0R 1 

B6*GAMC0S 

BUI 

FLTPT 

A*  W( GAMCOS ) 

A * 40002* Y MORE 
PTSERR 

A*4000U  A2ER0 
PTS15 

A* W(G AMCOS* 1 1  * APOS 
A 

A*WCFLT0NE*1  UANOT 
PTS15 

A  *77* YMORE 
PTSERR 

A*WIFLT0NE*1  ) 

0*W( GAMCOS* 1 ) • QNEG 
A*  WC  GAMCOS* 1 U SKIP 
A *CPWC  GAMCOS* 1 ) 

W(  GAMCOS UW(  SAM  1C0S*B3> 

W(  GAMCOS*  1UW<GAM1C0S*UB3) 

B3*2*B3 
B2*L (NUMP  T ) 


LOC 

F  JKB 

Y 

NOTES 

05131 

12500 

05574 

05132 

12600 

06252 

05133 

12700 

00002 

MUL  PROO  BY  SINALPHA 

05134 

12100 

00001 

05135 

65000 

06266 

AND  STORE  IN  2 

05136 

12400 

05644 

05137 

12500 

05640 

05140 

12600 

06242 

05141 

12700 

00002 

05142 

12100 

00001 

05143 

65000 

06266 

MUL  COSDELT AR  BY  COSALP 

05144 

12400 

06242 

05145 

12500 

05562 

05146 

12100 

00001 

05147 

65000 

06266 

MUL  PROD  BY  COSDELT  A 

05150 

12400 

06242 

05151 

12500 

05606 

05152 

12600 

06242 

05153 

12700 

00002 

05154 

12100 

00001 

05155 

65000 

06266 

MUL  PROD  BY  COSALPHA 

05156 

12400 

06242 

05157 

12500 

06252 

05160 

12600 

06244 

05161 

12700 

00000 

ADD  PROD  AND  ST ORE 2 

05162 

12100 

00001 

05163 

65000 

06266 

05164 

12400 

06244 

05165 

12500 

06250 

05166 

12600 

05650 

COS  GAMMA  CALCULATED 

05167 

12100 

00001 

05170 

65000 

06266 

05171 

11030 

05650 

05172 

04700 

40002 

IS  EXP  40001  OR  LESS 

05173 

61000 

05275 

NO  ERROR 

05174 

21400 

4  0001 

05175 

6  1000 

05210 

05176 

11630 

05651 

IS  FRAC  POS 

05177 

15040 

00000 

05200 

21530 

06137 

05201 

61000 

05210 

05202 

04700 

00077 

05203 

61000 

05275 

05204 

11030 

06137 

05205 

10330 

05651 

05206 

15130 

05651 

05207 

15070 

05651 

05210 

10030 

05650 

0521  1 

14033 

05646 

05212 

10030 

05651 

05213 

14033 

0564  7 

05214 

12303 

00002 

05215 

71210 

05700 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N«7/1/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y  NOTES 

04700 

JP 

PTS  l 

05216 

61000 

05017 

04701  PTS11X 

ENT 

BIO 

05217 

12100 

00001 

04702 

ENT 

B2«0 

05220 

12200 

00000 

04703  PTS 1 1 

ENT 

B2*2*B2 

05221 

12202 

00002 

04704 

ENT 

B4.FLTW0 

05222 

12400 

06142 

04  705 

ENT 

B5»GAM 1C0S 

05223 

12500 

05646 

04  706 

ENT 

B6  »GAM l TEMP 

05224 

12600 

06001 

04707 

ENT 

B7-00 

05225 

12700 

00000 

04710 

R  JP 

FLTPT 

05226 

65000 

06266 

0471  1 

ENT 

B5*GAM 1C0S+B2 

05227 

12502 

05646 

04712 

ENT 

B6 •GAM2TEMP 

05230 

12600 

06003 

04713 

RJP 

FLTPT 

05231 

65000 

06266 

04714 

ENT 

A»W1 GAM2TEMP ) 

05232 

11030 

06003 

04715 

ENT 

Q*W(GAM2TEMP*1 >»APOS 

05233 

10630 

06004 

• 

04716 

JP 

PTSERR 

05234 

61000 

05275 

• 

04717 

LSH 

AO«27D 

05235 

07000 

00033 

• 

04720 

STR 

A»W( GTEMP2 ) 

05236 

15030 

06007 

04721 

ENT 

A*W<  G AM  1  TEMP ) 

05237 

1  1030 

06001 

04722 

ENT 

Q»W(GAM1TEMP*1)*AP0S 

05240 

10630 

06002 

04723 

JP 

PTSERR 

0524  1 

61000 

05275 

04724 

LSH 

AQ»27D 

05242 

07000 

00033 

04725 

STR 

A*W(GTEMP1) 

05243 

15030 

06005 

• 

04726 

COM 

A*WIGTEMP2)«»YLESS 

05244 

04630 

06007 

• 

04727 

JP 

PTS9X 

05245 

61000 

05252 

• 

04730 

ENT 

A»W( NUMPT ) 

05246 

1  1030 

05700 

• 

04731 

SUB 

A«2«  AZ  ERO 

05247 

21400 

00002 

04732 

JP 

PTS9XXX 

05250 

61000 

05267 

04733 

JP 

PTSNORM 

05251 

61000 

05273 

04734  PTS9X 

ENT 

B  1  • 1 ♦B  l 

05252 

12101 

00001 

04735 

ENT 

A» W( NUMPT ) 

05253 

11030 

05700 

• 

04736 

SUB 

A»2»AZER0 

05254 

21400 

00002 

• 

04737 

JP 

PTS9XX 

05255 

61000 

05257 

• 

04740 

JP 

PTSNORM 

05256 

61000 

05273 

04741  PTS9XX 

ENT 

A*B2 

05257 

1  1002 

00000 

04742 

SUB 

A«6*  ANOT 

05260 

21500 

00006 

04743 

JP 

PTSNORM 

05261 

61000 

05273 

04744 

PUT 

W(GAM1C0S4B2) •WIG AMI  COS) 

05262 

10032 

05646 

05263 

14030 

05646 

04745 

PUT 

W ( GAM IC0S+1+B2)*W(GAM1C0S+1 ) 

05264 

10032 

05647 

05265 

14030 

05647 

04746 

JP 

PTS  1  ) 

05266 

61000 

05221 

04747  PTS9XXX 

ENT 

A*B2 

05267 

11002 

00000 

• 

04750 

SUB 

A»6»AN0T 

052  70 

21500 

00006 

• 

04751 

JP 

PTSNORM 

05271 

61000 

05273 

• 

04752 

JP 

PTS  l  1 

05272 

61000 

05221 

04753  PTSNORM 

RPL 

Y+ 1 »L ( PTSEL ) 

05273 

36010 

05004 

04754 

ENT 

A«B 1  *SK  IP 

05274 

11101 

00000 

04755  PTSERR 

ENT 

A#7 

05275 

1  1000 

00007 

04756  PTSB1 

ENT 

B1«0 

05276 

12100 

00000 

• 

04757  PTSB2 

ENT 

B2*0 

05277 

12200 

00000 

• 

04760  PTSB3 

ENT 

B3»0 

05300 

12300 

00000 

• 

04761  PTSB4 

ENT 

04*0 

05301 

12400 

00000 

04762  PTSB5 

ENT 

05  «0 

05302 

12500 

00000 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JK8 

Y  NOTES 

04763  PTSB6 

ENT 

86»0 

05303 

12600 

00000 

04764  PTSB7 

ENT 

B7«0 

05304 

12700 

00000 

04765 

EXIT 

05305 

61010 

05004 

04766  BCONVERT 

ENTRY 

05306 

61000 

00000 

• 

04767 

ENT 

B  1  •  1 

05307 

12100 

00001 

• 

04770 

ENT 

B7*02 

05310 

12700 

00002 

• 

04771 

ENT 

B5 •ANGCON V 

0531  1 

12500 

06126 

• 

04772  BC0N1 

ENT 

B4  *  1 1 

05312 

12400 

05432 

04  7  73 

ENT 

B6*  1 1 

05313 

12600 

05432 

04774 

RJP 

FLTPT 

05314 

65000 

06266 

04775 

ENT 

B6*86+2 

05315 

12606 

00002 

04776 

ENT 

B4  *86 

05316 

12406 

00000 

• 

04777 

ENT 

A»B6 

05317 

11006 

00000 

05000 

COM 

A*VYE AR*YLESS 

05320 

04600 

05444 

• 

05001 

JP 

BOON  1 ♦2 

05321 

61000 

05314 

• 

05002 

ENT 

B6«0ECT 

05322 

12600 

05452 

• 

05003 

ENT 

B4*B6 

05323 

12406 

00000 

# 

05004 

RJP 

FLTPT 

05324 

65000 

06266 

• 

05005 

ENT 

86*LZER0 

05325 

12600 

05456 

• 

05006  8C0N2 

ENT 

B4  »86 

05326 

12406 

00000 

05007 

RJP 

FLTPT 

05327 

65000 

06266 

05010 

ENT 

86*86+2 

05330 

12606 

00002 

• 

0501  1 

ENT 

A*B6 

05331 

11006 

00000 

• 

05012 

COM 

A*L0NG*2*YLESS 

05332 

04600 

05464 

• 

05013 

JP 

8C0N2 

05333 

61000 

05326 

• 

05014 

ENT 

B4«D0MEGA 

05334 

12400 

05436 

# 

05015 

ENT 

B5*TC0NV 

05335 

12500 

06130 

• 

05016 

ENT 

B6*D0MEGA 

05336 

12600 

05436 

• 

05017 

ENT 

B7*03 

05337 

12700 

00003 

• 

05020 

RJP 

FLTPT 

05340 

65000 

06266 

• 

05021 

ENT 

84  *0R  AM 

05341 

12400 

05442 

• 

05022 

ENT 

86 •ORAM 

05342 

12600 

05442 

• 

05023 

RJP 

FLTPT 

05343 

65000 

06266 

• 

05024 

ENT 

B4«KK 

05344 

12400 

05454 

05025 

ENT 

B5*C0N60 

05345 

12500 

06146 

05026 

ENT 

86*B4 

05346 

1  26,04 

00000 

05027 

ENT 

B7*02 

05347 

12700 

00002 

05030 

RJP 

FLTPT 

05350 

65000 

06266 

05031 

ENT 

B5 • ANGCONV 

05351 

12500 

06126 

05032 

ENT 

87  *03 

05352 

12700 

00003 

05033 

RJP 

FLTPT 

05353 

65000 

06266 

05034 

EXIT 

05354 

61010 

05306 

05035  BRESTORE 

ENTRY 

05355 

61000 

00000 

05036 

ENT 

87*03 

05356 

12700 

00003 

05037 

ENT 

B5*ANGC0NV 

05357 

12500 

06126 

05040  BRE 1 

ENT 

B4  •  1 1 

05360 

12400 

05432 

0504  1 

ENT 

B  6  •  I  I 

05361 

12600 

05432 

05042 

RJP 

FLTPT 

05362 

65000 

06266 

05043 

ENT 

B6*B6+2 

05363 

12606 

00002 

05044 

ENT 

B4*B6 

05364 

12406 

00000 

05045 

ENT 

A»  86 

05365 

1  1006 

00000 

• 

05046 

COM 

A*  VYEAR*YLESS 

05366 

04600 

05444 

• 

05047 

JP 

BRE  1  +  2 

05367 

61000 

05362 

BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N*7/ 1/65 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

05050 

ENT 

86*DECT 

05370 

12600 

05452 

• 

05051 

ENT 

84  *86 

05371 

12406 

00000 

* 

05052 

RJP 

FLTPT 

05372 

65000 

06266 

• 

05053 

ENT 

B6*LZER0 

05373 

12600 

05456 

05054  BRE2 

ENT 

84*86 

05374 

12406 

00000 

• 

05055 

RJP 

FLTPT 

05375 

65000 

06266 

• 

05056 

ENT 

B6*B6+2 

05376 

12606 

00002 

05057 

ENT 

A*86 

05377 

1  1006 

00000 

05060 

COM 

A*L0NG*2*YLESS 

05400 

04600 

05464 

05061 

JP 

BRE2 

05401 

61000 

05374 

05062 

ENT 

B4*D0MEGA 

05402 

12400 

05436 

05063 

ENT 

85  *TCONV 

05403 

12500 

06130 

05064 

ENT 

86*D0MEGA 

05404 

12600 

05436 

05065 

ENT 

87*02 

05405 

12700 

00002 

05066 

RJP 

FLTPT 

05406 

65000 

06266 

05067 

ENT 

84#DRAM 

05407 

12400 

05442 

05070 

ENT 

86*DR AM 

05410 

12600 

05442 

05071 

RJP 

FLTPT 

054  11 

65000 

06266 

05072 

ENT 

B4*KK 

05412 

12400 

05454 

05073 

ENT 

B5*ANGC0N V 

05413 

12500 

06126 

05074 

ENT 

86  *B4 

054  14 

12604 

00000 

05075 

RJP 

FLTPT 

05415 

65000 

06266 

05076 

ENT 

85  *C0N60 

05416 

12500 

06146 

05077 

ENT 

87*03 

054  17 

12700 

00003 

• 

05100 

RJP 

FLTPT 

05420 

65000 

06266 

• 

05101 

EXIT 

05421 

61010 

05355 

• 

05102 

NO-OP 

05422 

12000 

00000 

05103 

COMMENT  VARIABLES 

ANO  CONSTANTS 

05104 

NO-OP 

05423 

12000 

OOOOO 

05  105 

COMMENT  A. 

INPUT  PARAMETERS 

05106 

NO-OP 

05424 

12000 

00000 

05107  SCHOSW 

0 

0 

05425 

00000 

OOOOO 

05110  AA 

0 

0 

05426 

00000 

OOOOO 

• 

05111 

0 

0 

05427 

00000 

OOOOO 

# 

05112  EE 

0 

0 

05430 

00000 

OOOOO 

• 

05113 

0 

0 

05431 

00000 

OOOOO 

05114  II 

0 

0 

05432 

00000 

OOOOO 

05115 

0 

0 

05433 

00000 

OOOOO 

05116  SOMEGA 

0 

0 

05434 

00000 

OOOOO 

05117 

0 

0 

05435 

00000 

OOOOO 

m 

05120  DOMEGA 

0 

0 

05436 

00000 

OOOOO 

• 

05121 

0 

0 

05437 

00000 

OOOOO 

m 

05122  SRAM 

0 

0 

05440 

00000 

OOOOO 

05123 

0 

0 

05441 

00000 

OOOOO 

05124  DRAM 

0 

0 

05442 

00000 

OOOOO 

• 

05125 

0 

0 

05443 

00000 

OOOOO 

• 

05126  WEAR 

0 

0 

05444 

00000 

OOOOO 

• 

05127 

0 

0 

05445 

00000 

OOOOO 

• 

05130  VMONTH 

0 

0 

05446 

00000 

OOOOO 

# 

05131 

0 

0 

05447 

00000 

OOOOO 

• 

05132  VOAY 

0 

0 

05450 

00000 

OOOOO 

• 

05133 

0 

0 

05451 

00000 

OOOOO 

• 

05134  DECT 

0 

0 

05452 

00000 

OOOOO 

BELTP 


CAROS 

LI  ID  LABEL 

TA  STATEMENT 

• 

05135 

0 

0 

• 

05136  KK 

0 

0 

• 

05137 

0 

0 

• 

05140  LZERO 

0 

0 

• 

0514  1 

0 

0 

• 

05142  ALPHB 

0 

0 

05143 

0 

0 

• 

05144  LONG 

0 

0 

• 

05145 

0 

0 

• 

05146 

NO- 

-OP 

05147 

COMMENT 

05150 

NO- 

-OP 

• 

05151  TIME 

0 

0 

• 

05152 

0 

0 

• 

05153  T I  ME  1 

0 

0 

05154 

0 

0 

05155  TIMETEMP 

0 

0 

05156 

0 

0 

05157  BOAY 

0 

0 

• 

05160 

0 

0 

• 

05161  BDAYNOW 

0 

0 

• 

05162 

0 

0 

05163  FLTBOAY 

0 

0 

05164 

0 

0 

05165  FLTNDAY 

0 

0 

05166 

0 

0 

05167  NT  I  ME  1 

0 

0 

• 

05170 

0 

0 

• 

05171  NSTIME 

0 

0 

• 

05172 

0 

0 

• 

05173  FLTSECDIFF 

0 

0 

• 

05174 

0 

0 

• 

0-5175  FLTOIFF 

0 

0 

05176 

0 

0 

05177  CUR JULOAY 

0 

0 

05200 

0 

0 

• 

05201  CUR JULDAYF 

0 

0 

• 

05202 

0 

0 

# 

05203  T I  ME  1  LAST 

0 

0 

05204 

0 

0 

• 

05205  TIME2LAST 

0 

0 

• 

05206 

0 

0 

• 

05207  TIMEOIFF 

0 

0 

• 

05210 

0 

0 

• 

05211 

NO- 

•OP 

05212 

COMMENT 

05213 

NO- 

-OP 

05214  VVSIN 

0 

0 

05215 

0 

0 

• 

05216  VVCOS 

0 

0 

• 

05217 

0 

0 

• 

05220  EECOS 

0 

0 

05221 

0 

0 

SPURT  OUTPUT  NO*  210 
P0NT0N*7/ 1/65 


LOC 

F  JKB 

Y 

05453 

00000 

ooooo 

05454 

00000 

ooooo 

05455 

00000 

ooooo 

05456 

00000 

ooooo 

05457 

00000 

ooooo 

05460 

00000 

ooooo 

05461 

00000 

ooooo 

05462 

00000 

ooooo 

05463 

00000 

ooooo 

05464 

12000 

ooooo 

05465 

12000 

ooooo 

05466 

00000 

ooooo 

05467 

00000 

ooooo 

05470 

00000 

ooooo 

05471 

00000 

ooooo 

05472 

00000 

ooooo 

05473 

00000 

ooooo 

05474 

00000 

ooooo 

05475 

00000 

ooooo 

05476 

00000 

ooooo 

05477 

00000 

ooooo 

05500 

00000 

ooooo 

05501 

00000 

ooooo 

05502 

00000 

ooooo 

05503 

00000 

ooooo 

05504 

00000 

ooooo 

05505 

00000 

ooooo 

05506 

00000 

ooooo 

05507 

00000 

ooooo 

05510 

ooooo 

ooooo 

05511 

00000 

ooooo 

05512 

ooooo 

ooooo 

05513 

ooooo 

ooooo 

05514 

ooooo 

ooooo 

05515 

ooooo 

ooooo 

05516 

ooooo 

ooooo 

05517 

ooooo 

ooooo 

05520 

ooooo 

ooooo 

05521 

ooooo 

ooooo 

05522 

ooooo 

ooooo 

05523 

ooooo 

ooooo 

05524 

ooooo 

ooooo 

05525 

ooooo 

ooooo 

05526 

12000 

ooooo 

05527 

12000 

ooooo 

05530 

ooooo 

ooooo 

05531 

ooooo 

ooooo 

05532 

ooooo 

ooooo 

05533 

ooooo 

ooooo 

05534 

ooooo 

ooooo 

05535 

ooooo 

ooooo 

NOTES 


TIME  VALUES 


TRIGONOMETRIC  VALUES 


B6LTP 


CARDS 

L»  ID  LABEL 

TA  STATEMENT 

0S222  EES  IN 

0 

0 

05223 

0 

0 

• 

05224  1 1 S  IN 

0 

0 

m 

05225 

0 

0 

• 

05226  IICOS 

0 

0 

05227 

0 

0 

05230  RAMSIN 

0 

0 

052  31 

0 

0 

05232  RAMCOS 

0 

0 

• 

05233 

0 

0 

• 

05234  DELTSIN 

0 

0 

• 

05235 

0 

0 

05236  DELT1SIN 

0 

0 

05237 

0 

0 

05240  DELT2S IN 

0 

0 

05241 

0 

0 

05242  DELT3S IN 

0 

0 

05243 

0 

0 

05244  0ELT4S  IN 

0 

0 

• 

05245 

0 

0 

• 

05246  DELTCOS 

0 

0 

• 

05247 

0 

0 

• 

05250  0ELT1C0S 

0 

0 

05251 

0 

0 

05252  OELT2COS 

0 

0 

05253 

0 

0 

05254  DELT3C0S 

0 

0 

05255 

0 

0 

05256  DELT4C0S 

0 

0 

05257 

0 

0 

05260  ALPHSIN 

0 

0 

05261 

0 

0 

05262  ALPH1SIN 

0 

0 

• 

05263 

0 

0 

• 

05264  ALPH2S IN 

0 

0 

05265 

0 

0 

05266  ALPH3SIN 

0 

0 

05267 

0 

0 

05270  ALPH4S IN 

0 

0 

05271 

0 

0 

05272  ALPHCOS 

0 

0 

05273 

0 

0 

• 

05274  ALPH1C0S 

0 

0 

• 

05275 

0 

0 

• 

05276  ALPH2C0S 

0 

0 

* 

05277 

0 

0 

• 

05300  ALPH3C0S 

0 

0 

• 

05301 

0 

0 

# 

05302  ALPH4C0S 

0 

0 

• 

05303 

0 

0 

• 

05304  ALPHTAN 

0 

0 

• 

05305 

0 

0 

05306  LLSIN 

0 

0 

SPURT  OUTPUT  NO.  210 
P0NT0N*7/1/65 


LOC 

F  JKB 

Y 

05536 

00000 

ooooo 

05537 

00000 

ooooo 

05540 

00000 

ooooo 

05541 

00000 

ooooo 

05542 

00000 

ooooo 

05543 

00000 

ooooo 

05544 

00000 

ooooo 

05545 

00000 

ooooo 

05546 

00000 

ooooo 

05547 

00000 

ooooo 

05550 

00000 

ooooo 

05551 

00000 

ooooo 

05552 

00000 

ooooo 

05553 

00000 

ooooo 

05554 

00000 

ooooo 

05555 

00000 

ooooo 

05556 

00000 

ooooo 

05557 

00000 

ooooo 

05560 

00000 

ooooo 

05561 

00000 

ooooo 

05562 

00000 

ooooo 

05563 

00000 

ooooo 

05564 

00000 

ooooo 

05565 

00000 

ooooo 

05566 

00000 

ooooo 

05567 

00000 

ooooo 

05570 

00000 

ooooo 

05571 

00000 

ooooo 

05572 

00000 

ooooo 

05573 

00000 

ooooo 

05574 

00000 

ooooo 

05575 

00000 

ooooo 

05576 

00000 

ooooo 

05577 

00000 

ooooo 

05600 

00000 

ooooo 

05601 

00000 

ooooo 

05602 

00000 

ooooo 

05603 

00000 

ooooo 

05604 

00000 

ooooo 

05605 

00000 

ooooo 

05606 

00000 

ooooo 

05607 

ooooo 

ooooo 

05610 

00000 

ooooo 

0561  1 

ooooo 

ooooo 

05612 

ooooo 

ooooo 

05613 

ooooo 

ooooo 

05614 

ooooo 

ooooo 

05615 

ooooo 

ooooo 

05616 

ooooo 

ooooo 

05617 

ooooo 

ooooo 

05620 

ooooo 

ooooo 

05621 

ooooo 

ooooo 

05622 

ooooo 

ooooo 

NOTES 


BELTP 


CO 

4^ 


CARDS 


LI  10  LABEL 
05307 

05310  LL I S  I  N 
05  311 

05312  LL2SIN 
05313 

05314  LLCOS 
05315 

05316  LL 1C0S 
05317 

05320  LL2C0S 
05321 

05322  ALPHRSIN 
05323 

05324  ALPHRCOS 
05325 

05326  CELTRSIN 
05327 

05330  DELTRCOS 
05331 

05332  GAM1C0S 
05333 

05334  GAMCOS 
05335 

05336  GAM2C0S 
05337 

05340  GAM3C0S 
05341 

05342  GAM4C0S 
05343 

05344  COSCHI 
05  345 

05346  SINCH! 
05347 

05350  DELTSINPOS 
05351 

05352  IlSINPOS 
05353 

05354  IISIN2 
05355 

05356  LLSIN2 

05357 

05360 

0536  1 

05362 

05363  IISWITCH 
05364  UNDE ART HSW 
05365  NUMPT 
05366  8SELSW 
05367  ALPHASW 
05370  NCODE 
05371  LATEM 
05372 
05373 


TA  STATEMENT 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

NO-OP 

commfnt  0 

NO-OP 

0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

NO-OP 

COMMENT  E 


SPURT  OUTPUT  NO.  210 
PONTON*  7/ 1 /65 


LOC  F  JKB  Y  NOTES 

05623  00000  00000 
05624  00000  00000 
05625  00000  00000 
05626  00000  00000 
05627  00000  00000 
05630  00000  00000 
05631  00000  00000 
05632  00000  00000 
05633  00000  00000 
05634  00000  00000 
05635  00000  00000 
05636  00000  00000 
05637  00000  00000 
05640  00000  00000 
05641  00000  00000 
05642  00000  00000 
05643  00000  00000 
05644  00000  00000 
05645  00000  00000 
05646  00000  00000 
05647  00000  00000 
05650  00000  00000 
05651  00000  00000 
05652  00000  00000 
05653  00000  00000 
05654  00000  00000 
05655  00000  00000 
05656  00000  00000 
05657  00000  00000 
05660  00000  00000 
05661  00000  00000 
05662  00000  00000 
05663  00000  00000 
05664  00000  00000 
05665  00000  00000 
05666  00000  00000 
05667  00000  00000 
05670  00000  00000 
05671  00000  00000 
05672  00000  00000 
05673  00000  00000 
05674  12000  00000 

SWITCHES  ANO  INDICATORS 

05675  12000  00000 
05676  00000  00000 
05677  00000  00000 
05700  00000  00000 
05701  00000  00000 
05702  00000  00000 
05703  00000  00000 
05704  00000  00000 
05705  12000  00000 


COMPUTED  VALUES 


CARDS 


LI  ID  LABEL 

05  374 
05375  LL 
05376 

05377  LL  1  LAST 
05400 

05401  LL2LAST 
05402 

05403  DL LB 
05404 

05405  ALPHG 
05406 

05407  DELTR 
05410 

05411  ALPHR 
054  12 

05413  ZOMEGA 
054  14 
05415  RAM 
054  16 

05417  RANGEB 
05420 
05421  VV 
05422 

05423  BELM 
05424 

05425  M 1  LAST 
05426 

05427  M2LAST 
05430 
05431  NN 
054  32 
05433  DV 
05434 
05435  DU 
05436 

05437  DDELT 
05440 

05441  BEL DR 
05442 

05443  DELALPH 
05444 

05445  RAMLAST 
05446 

05447  MEGALAST 
05450 

05451  CELTS IN2 
05452 

05453  LAMDR 
05454 

05455  ALPHB1 
05456 

05457  DELT81 
05460 


TA  STATEMENT 

NO-OP 
0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 

0  0 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


LOC  F  JKB  Y 


05706 
05707 
05710 
0571  1 
05712 
05713 
05714 
05715 
05716 
05717 
05720 
05721 
05722 
05723 
05724 
05725 
05726 
05727 
05730 
05731 
05732 
05733 
05734 
05735 
05736 
05737 
05740 
05741 
05742 
05743 
05744 
05745 
05746 
05747 
05750 
05751 
05752 
05753 
05754 
05755 
05756 
05757 
05760 
05761 
05762 
05763 
05764 
05765 
05766 
05767 
05770 
05771 
05772 


12000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 


00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

ooooo 


NOTES 


BELTP 


CAROS  LI  ID  LABEL  TA  STATEMENT 


CJ 

On 


05461 

CHI 

0 

0 

05462 

0 

0 

05463 

C0SCHI2 

0 

0 

05464 

0 

0 

05465 

LLL 

0 

0 

05466 

0 

0 

05467 

GAM1 TEMP 

0 

0 

05470 

0 

0 

05471 

GAM2TEMP 

0 

0 

05472 

0 

0 

05473 

GTEMP1 

0 

0 

05474 

0 

0 

05475 

GTEMP2 

0 

0 

05476 

0 

0 

05477 

I IDELTDIFF 

0 

0 

05500 

0 

0 

05501 

PTTEM 

0 

0 

05502 

0 

0 

05503 

TXX 

0 

0 

05504 

0 

0 

05505 

TXX  1 

0 

0 

05506 

0 

0 

05507 

YY 

0 

0 

05510 

0 

0 

05511 

ZZ 

0 

0 

05512 

0 

0 

05513 

FACTOR  1 

0 

0 

05514 

0 

0 

05515 

FACT0R2 

0 

0 

05516 

0 

0 

05517 

FACT0R3 

0 

0 

05520 

0 

0 

05521 

FACT0R4 

0 

0 

05522 

0 

0 

05523 

FACTORS 

0 

0 

05524 

0 

0 

05525 

FACT0R6 

0 

0 

05526 

0 

0 

05527 

FACTOR  10 

0 

0 

05530 

0 

0 

05531 

FACTOR  1 1 

0 

0 

05532 

0 

0 

05533 

FACTOR  12 

0 

0 

05534 

0 

0 

05535 

EE2 

0 

0 

05536 

0 

0 

05537 

EE2M1 

0 

0 

05540 

0 

0 

05541 

KNCAL 

0 

0 

05542 

0 

0 

05543 

KKNCALC 

0 

0 

05544 

0 

0 

05545 

KRECIP 

0 

0 

SPURT  OUTPUT  NO.  210 
PONTON*  7/ 1/65 


LOC  F  JKB  Y 


05773 

05774 

05775 

05776 

05777 

06000 

06001 

06002 

06003 

06004 

06005 

06006 

06007 

06010 

06011 

06012 

06013 

06014 

06015 

06016 

06017 

06020 

06021 

06022 

06023 

06024 

06025 

06026 

06027 

06030 

06031 

06032 

06033 

06034 

06035 

06036 

06037 

06040 

06041 

06042 

06043 

06044 

06045 

06046 

06047 

06050 

06051 

06052 

06053 

06054 

06055 

06056 

06057 


00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 


00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 

00000 


notes 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTON»7/1/65 


CARDS 

LI  10  LABEL 

TA  STATEMENT 

05546 

0  0 

05547  GMK 

0  0 

05550 

0  0 

05551  NMBELDR 

0  0 

05552 

0  0 

05553  PP 

0  0 

05554 

0  0 

05555  ALPHO IFF 

0  0 

05556 

0  0 

05557  RAM I 90 

0 

05560 

0 

• 

05561  RAM 1 2  70 

0 

• 

05562 

0 

• 

05563  KKCM 

0 

05564 

0 

05565  FACTOR  11  X 

0 

05566 

0 

05567  LLMINUS 

0 

05570 

0 

05571  RAMCHECK 

0 

05572 

0 

• 

05573  FRAMECON 

0 

• 

05574 

0 

• 

05575  FRAMEFLTPT 

0 

05576 

0 

05577  SIDERFLTPT 

0 

05600 

0 

05601  SI OERL AMOR 

0 

05602 

0 

05603 

NO-OP 

05604 

COMMENT  F. 

05605 

NO-OP 

05606  FXINST 

ENT  A»  W( LLM I NUS* 1  ) • ANEG 

05607  FX INST  1 

ENT  A* W ( LLM INUS* 1 >*APOS 

05610  RAGREENCON 

0  37763 

056  11 

11435  51772 

05612  PT CON 

0  40001 

05613 

10013  15564 

05614  JULDAY064 

1123  23724 

05615  ANGCONV 

0  37773 

05616 

10737  21521 

05617  TCONV 

0  40021 

05620 

12430  0 

05621  WONETH 

0  37777 

05622 

12525  25253 

05623  NMCON 

0  40014 

05624 

15343  15136 

05625  FLTONE 

00000  40001 

05626 

10000  00000 

• 

05627  BEL2PI1 

00000  40003 

• 

05630 

14441  77653 

05631  FLTWO 

0  40002 

LOC 

F  JKB 

r 

NOTES 

06060 

00000 

ooooo 

06061 

00000 

ooooo 

06062 

00000 

ooooo 

06063 

00000 

ooooo 

06064 

00000 

ooooo 

06065 

00000 

ooooo 

06066 

00000 

ooooo 

06067 

00000 

ooooo 

06070 

00000 

ooooo 

06071 

00000 

ooooo 

06072 

00000 

ooooo 

06073 

00000 

ooooo 

06074 

00000 

ooooo 

06075 

00000 

ooooo 

06076 

00000 

ooooo 

06077 

00000 

ooooo 

06100 

00000 

ooooo 

06101 

00000 

ooooo 

X 

06  102 

00000 

ooooo 

X 

06103 

00000 

ooooo 

X 

06104 

00000 

ooooo 

X 

06105 

ooooo 

ooooo 

X 

06106 

00000 

ooooo 

X 

06107 

ooooo 

ooooo 

X 

06110 

ooooo 

ooooo 

X 

06111 

ooooo 

ooooo 

X 

06112 

ooooo 

ooooo 

X 

06  113 

ooooo 

ooooo 

X 

061  14 

ooooo 

ooooo 

X 

06115 

12000 

ooooo 

CONSTANTS 

06116 

12000 

ooooo 

06117 

11730 

06102 

X 

06120 

11630 

06102 

X 

06121 

ooooo 

37763 

7.2921 15847*10$$ 

v 

06122 

11435 

51772 

A 

X 

06123 

ooooo 

40001 

06124 

10013 

15564 

06125 

01123 

23724 

06126 

ooooo 

37773 

06127 

10737 

2152  1 

06130 

ooooo 

40021 

06131 

12430 

OOOOO 

06132 

OOOOO 

37777 

06133 

12525 

25253 

06134 

OOOOO 

40014 

06135 

15343 

15136 

06136 

OOOOO 

40001 

06137 

10000 

OOOOO 

06140 

ooooo 

40003 

06141 

14441 

77653 

06142 

OOOOO 

40002 

BELTP 


Co 

00 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

05632 

10000  0 

05633  FLTFOUR 

00000  40003 

05634 

10000  00000 

05635  C0N60 

0 

40006 

05636 

17000  0 

05637  HFPJ 

0 

40001 

05640 

1444  1 

1  76652 

05641  BONE 

00000  00001 

05642  THFPI 

0 

40003 

• 

05643 

11331 

1  37377 

• 

05644  THRHF 

0 

40001 

• 

05645 

14000  0 

• 

05646  BELTEH 

0 

40015 

• 

05647 

1161G 

1  0 

05650  GLR 

0 

0 

05651 

0 

0 

05652  NUMRAN 

0 

0 

• 

05653 

0 

0 

• 

05654  TTWPI 

0 

40003 

• 

05655 

1444  1 

76652 

05656  GM 

0 

40105 

05657 

12633 

\  56575 

05660  ERCON 

0 

40036 

05661 

11402 

11655 

05662  A2 

0 

37767 

05663 

15231 

47546 

05664  PI 

0 

40002 

• 

05665 

1444  1 

76652 

• 

05666  DYPRMO 

0 

0 

• 

05667 

0 

37 

05670 

0 

73 

05671 

0 

132 

05672 

0 

170 

05673 

0 

227 

05674 

0 

265 

05675 

0 

324 

05676 

0 

363 

05677 

0 

421 

05700 

0 

460 

05701 

0 

516 

05702  DYPRYR 

0 

556 

05703 

0 

1333 

05704 

0 

21  10 

05705 

0 

2665 

05706 

0 

3443 

05707 

0 

4220 

05710 

0 

4775 

05711 

0 

5552 

05712 

0 

6330 

05713 

0 

7105 

05714 

0 

7662 

05715 

0 

10437 

05716 

0 

11214 

SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


LOC 

CD 

UL 

Y 

NOTES 

06143 

10000 

00000 

06  144 

00000 

40003 

06145 

10000 

00000 

06146 

00000 

40006 

06147 

17000 

00000 

06150 

00000 

40001 

06151 

1444  1 

76652 

06152 

00000 

00001 

06153 

00000 

40003 

06154 

11331 

37377 

06155 

00000 

40001 

06  156 

14000 

00000 

06157 

00000 

40015 

06  160 

1  1610 

00000 

06161 

00000 

00000 

06162 

00000 

00000 

06163 

00000 

00000 

06  164 

00000 

00000 

06165 

00000 

40003 

06166 

1444  1 

76652 

06167 

00000 

40105 

06170 

12633 

56575 

06171 

00000 

40036 

06172 

1  1402 

11655 

06173 

00000 

37767 

06  174 

15231 

47546 

06175 

00000 

40002 

FP  PI 

06176 

1444  1 

76652 

06177 

00000 

00000 

DAYS  PER 

06200 

00000 

00037 

/ 

06201 

00000 

00073 

/ 

06202 

00000 

00132 

/ 

06203 

00000 

00170 

/ 

06204 

00000 

00227 

/ 

06205 

00000 

00265 

/ 

06206 

00000 

00324 

/ 

06207 

00000 

00363 

/ 

06210 

00000 

00421 

/ 

06211 

00000 

00460 

/ 

06212 

00000 

00516 

/ 

06213 

00000 

00556 

06214 

00000 

01333 

06215 

00000 

02110 

06216 

00000 

02665 

06217 

00000 

03443 

06220 

00000 

04220 

06221 

00000 

04775 

06222 

00000 

05552 

06223 

00000 

06330 

06224 

00000 

07105 

06225 

00000 

07662 

06226 

00000 

10437 

06227 

00000 

11214 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/l/65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

0571F 

0 

11771 

05720 

0 

12546 

05721  B0AY1 

0 

0 

05722 

0 

0 

05723  TIMTP 

0 

0 

05  7  24 

0 

0 

05725  eELDIFF 

0 

0 

05726 

0 

0 

05727  BELCOS 

0 

0 

05730 

0 

0 

05731  BELPROD 

0 

0 

05732 

0 

0 

05733  BELSUM 

0 

0 

05734 

0 

0 

05735  BELQUOT 

0 

0 

05736 

0 

0 

05737  BELSTOR 1 

0 

0 

05740 

0 

0 

05741  BELST0R2 

0 

0 

05742 

0 

0 

05743  LL 4 

0 

0 

05744 

0 

0 

05745  MODNUM 

0 

0 

05746 

0 

0 

05747 

NO- 

OP 

05750 

COMMENT 

G. 

05751 

NO- 

OP 

05752  BE L P I XX 

EQUALS 

PI 

05753  TL AST 

EQUALS 

TIME 1LAST 

05754  OELT 

EQUALS 

OECT 

05755  RR 

EQUALS 

RANGE  B 

05756  ALPH 

equals 

ALPHB 

05757  FL T TWO 

equals 

FLTWO 

05760  WONE 

EQUALS 

FL  TONE 

05761  BELC5 

EQUALS 

BELC3 

05762  8ANGLEX 

EQUALS 

THFPI 

05763  BANGLE 

EQUALS 

HFP I 

05764  BEL2PI 

EQUALS 

TTWPI 

05765  OELTB 

equals 

OECT 

05766  LL l 

equals 

L  ZERO 

05767  LAMDB 

equals 

LONG 

05770  NIL 

EQUALS 

0 

05771 

NO- 

OP 

0577? 

NO- 

OP 

05773 

NO- 

OP 

05774 

NO- 

OP 

05775  FLTPT 

PROGRAM 

CORR  8* l 6MAR64 

05776 

IGNORE 

FLTPT 

05777  PTR 

MEANS 

C4 

06000  POUT 

MEANS 

C4 

06001  FLTPT 

ENTRY 

06002 

STR 

8  l  *L 1 FP 1 ) 

06003 

STR 

B4  «L ( F  P4 ) 

NOTES 


LOC 

F  JK8 

Y 

06230 

00000 

11771 

06231 

00000 

12546 

06232 

00000 

00000 

06233 

00000 

00000 

06234 

00000 

00000 

06235 

00000 

00000 

06236 

00000 

00000 

06237 

00000 

00000 

06240 

00000 

00000 

06241 

00000 

00000 

06242 

00000 

00000 

06243 

00000 

00000 

06244 

00000 

00000 

06245 

00000 

00000 

06246 

00000 

00000 

06247 

00000 

00000 

06250 

00000 

00000 

06251 

00000 

00000 

06252 

00000 

00000 

06253 

00000 

00000 

06254 

00000 

00000 

06255 

00000 

00000 

06256 

00000 

00000 

06257 

00000 

00000 

06260 

12000 

00000 

06261 

12000 

00000 

06262 

12000 

00000 

06263 

12000 

00000 

06264 

12000 

00000 

06265 

12000 

00000 

06266 

61000 

00000 

06267 

161  10 

06275 

06270 

16410 

06276 

EQUIVALENT 


DUMMY 


BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N*7/ 1/65 


CAROS 

LI  10  label 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

06004 

STR 

B5»L I  FP5) 

06271 

16510 

06277 

• 

06005 

STR 

B6«L ( FP6 1 

06272 

16610 

06300 

• 

06006 

STR 

B7#LCFP7) 

06273 

16710 

06301 

• 

06007 

RJP 

L C  EFP  +  B7 ) 

06274 

65017 

06303 

06010  FP1 

ENT 

B  1  *0 

06275 

12100 

00000 

06011  FPU 

ENT 

B4«0 

06276 

12400 

00000 

• 

06012  FP5 

ENT 

B5»0 

06277 

12500 

00000 

• 

06013  FP6 

ENT 

B6*0 

06300 

12600 

00000 

• 

06014  FP7 

ENT 

B7  *0 

06301 

12700 

00000 

• 

06015 

EXIT 

06302 

61010 

06266 

• 

06016  EFP 

0 

AOO 

06303 

00000 

06325 

ADDITION 

06017 

0 

SUB 

06304 

00000 

06364 

SUBTRACTION  1 

06020 

0 

MPL 

06305 

00000 

06374 

MULTIPLICATION 

06021 

0 

01  V 

06306 

00000 

06406 

DIVISION 

• 

06022 

0 

STARTRE AO 

06307 

00000 

07166 

DATA  INPUT 

• 

06023 

0 

PUNCH 

06310 

00000 

06531 

PUNCH  OUTPUT 

• 

06024 

0 

TYPE 

0631  1 

00000 

06527 

TYPE  OUTPUT 

06025 

0 

SET 

06312 

00000 

06472 

SET  OUTPUT  LENGTH 

• 

06026 

0 

FXTOFL 

06313 

00000 

06474 

FIX  TO  FLOAT 

• 

06027 

0 

FLTOFX 

06314 

00000 

06504 

FLOAT  TO  FIX 

• 

06030 

0 

SOR 

06315 

00000 

06555 

SQUARE  ROOT 

06031 

0 

SIN 

06316 

00000 

07601 

SINE  OF  ARGUMENT 

06032 

0 

COS 

06317 

00000 

07710 

COS  OF  ARGUMENT 

06033 

0 

ATAN 

06320 

00000 

06647 

ARCTANGENT  OF  ARGUMENT 

06034 

0 

EXP 

06321 

00000 

06727 

EXPONENTIAL  OF  ARGUMENT 

06035 

0 

ASIN 

06322 

00000 

07171 

06036 

0 

ACOS 

06323 

00000 

07375 

06037 

0 

LOGE 

06324 

00000 

07420 

06040  AOO 

ENTRY 

06325 

61000 

00000 

06041 

ENT 

A*L ( 84 ) 

06326 

1  1014 

00000 

• 

06042 

SUB 

A*L(85)*ANEG 

06327 

21715 

00000 

Cl  MINUS  C2 

• 

06043 

JP 

POS 

06330 

61000 

06343 

• 

06044 

ENT 

Q»L ( B5 1 

06331 

10015 

00000 

C2  IS  THE 

• 

06045 

STR 

0*W(B6) 

06332 

14036 

00000 

RESULTANT  CHARACTERISTIC 

06046 

SEL 

CP*X77777 

06333 

51040 

77777 

C2  MINUS  Cl 

06047 

COM 

A«35* YLESS 

06334 

04600 

00035 

C2-C1  GREATER  THAN  28 

• 

06050 

STR 

A»L ( SF  T 1 ) «SK I P 

06335 

15110 

06354 

NO 

• 

06051 

JP 

MTR  1 

06336 

6)000 

06361 

YES 

• 

06052 

ENT 

A  •  W  (  1  +  B5  ) 

06337 

11035 

00001 

• 

06053 

STR 

A*W( WS ) 

06340 

15030 

06533 

STORE  LARGER  MANTISSA 

• 

06054 

ENT 

A«WC 1 +B4 ) 

06341 

1  1034 

00001 

• 

06055 

JP 

SFT 

06342 

61000 

06353 

• 

06056  POS 

ENT 

Q* L ( B4  ) 

06343 

10014 

00000 

Cl  IS  THE  RESULTANT 

• 

06057 

STR 

0»W(B6) 

06344 

14036 

00000 

CHARACTERISTIC 

06060 

COM 

A*  35*YLE  SS 

06345 

04600 

00035 

C1-C2  GREATER  THAN  28 

06061 

STR 

A*L(SFT1 l^SKIP 

06346 

151  10 

06354 

NO 

06062 

JP 

MTR 

06347 

61000 

06360 

YES 

06063 

ENT 

A*W( 1+84) 

06350 

11034 

0000) 

06064 

STR 

A»W(WS) 

06351 

15030 

06533 

STORE  LARGER  MANTISSA 

06065 

ENT 

A«  W  ( 1 +  B5 1 

06352 

11035 

00001 

06066  SFT 

ENT 

0*0 

06353 

10000 

00000 

• 

06067  SFT  1 

RSH 

A0*0 

06354 

03000 

00000 

SET  RADIX  POINTS 

• 

06070 

AOO 

A*  W ( WS 1 

06355 

20030 

06533 

AOO  LARGER  MANTISSA 

141 


BELTP 


SPURT  OUTPUT  NO.  210 
PONTONS/ 1/65 


CAROS 

LI  10 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

notes 

06071 

RJP 

SCL 

06356 

65000 

06426 

TO  SCALE 

06072 

EXIT 

06357 

61010 

06325 

06073 

MTR 

ENT 

A*W<  UB41  •SKIP 

06360 

1  1  134 

00001 

Ml  RESULTANT  MANTISSA 

06074 

HTR  1 

ENT 

A*W< U85) 

06361 

1  1035 

OOOOI 

M2  resultant  MANTISSA 

06075 

STR 

A*W< 1+86 ) 

06362 

15036 

00001 

STORE  RESULTANT 

06076 

EXIT 

06363 

61010 

06325 

06077 

SUB 

ENTRY 

06364 

61000 

00000 

06100 

ENT 

A«LI85 ) 

06365 

1  1015 

00000 

06101 

STR 

A«L ( WS2 ) 

06366 

15010 

06535 

C2 

06102 

ENT 

A*WI  UB5) 

06367 

1  1035 

00001 

06103 

STR 

A»CPW ( WS3 ) 

06370 

15070 

06536 

COMPLEMENT  M2 

06104 

ENT 

B5«WS2 

0637  1 

12500 

06535 

SET  B5 

06105 

RJP 

AOD 

06372 

65000 

06325 

JUMP  TO  ADO  ROUTINE 

06106 

EXIT 

06373 

61010 

06364 

06107 

MPL 

ENTRY 

06374 

61000 

00000 

06110 

ENT 

A»L ( B4 ) 

06375 

1  1014 

00000 

06111 

ADO 

A*L ( B5 ) 

06376 

20015 

00000 

Cl  ♦  C2 

061  12 

SUB 

A*40000 

06377 

21000 

40000 

RESULTANT  C 

06113 

STR 

A*W(B6) 

06400 

15036 

00000 

06114 

ENT 

Q* W {  UB4) 

06401 

10034 

OOOOI 

061  15 

MUL 

W(  UBS) 

06402 

22035 

00001 

IM1UM2) 

06116 

LSH 

A0*2 

06403 

07000 

00002 

SHIFT  FOR  SCALE 

06117 

RJP 

SCL 

06404 

65000 

06426 

TO  SCALE 

06120 

EXIT 

06405 

61010 

06374 

06121 

DIV 

ENTRY 

06406 

61000 

00000 

06  122 

ENT 

A • W (  1 ♦ B  5 ) • AZERO 

06407 

11435 

OOOOI 

06123 

ENT 

A«L ( B4 ) •SKIP 

064  10 

11114 

00000 

• 

06124 

JP 

ERR 

06411 

61000 

07055 

ZERO  01 VI SOR 

• 

06125 

SUB 

A*L ( B5 ) 

064  12 

21015 

00000 

C1-C2 

• 

06126 

ADO 

A*40000 

06413 

20000 

40000 

RESULTANT  C 

06127 

STR 

A*L(B6) 

06414 

15016 

00000 

06130 

ENT 

0*0 

06415 

10000 

00000 

• 

06131 

ENT 

A*W(  UB4) 

064  16 

1  1034 

OOOOI 

Ml 

• 

06132 

RSH 

AQ  «2 

06417 

03000 

00002 

PREPARE  FOR  OIVISION 

• 

06133 

OIV 

W<  UBS) 

06420 

23035 

OOOOI 

Ml  DIVIDED  BY  M2 

• 

06134 

STR 

0*  A* APOS 

06421 

14640 

00000 

QUOTIENT  TO  A.  IS  IT  1 

• 

06  135 

ENT 

Q*X“0*SKI P 

06422 

10140 

77777 

NO  SET  NEG 

06136 

CL 

Q 

06423 

10000 

00000 

YES  SO  SET  TO  PLUS  ZEI 

06137 

RJP 

SCL 

06424 

65000 

06426 

TO  SCALE 

06140 

EXIT 

06425 

61010 

06406 

06141 

SCL 

ENTRY 

06426 

61000 

00000 

06142 

JP 

NEG* ANEG 

06427 

60700 

06441 

06143 

RPT 

36 

06430 

70000 

00036 

06  144 

LSH 

A0« 1 • ANEG 

06431 

07700 

OOOOI 

06145 

JP 

ZERO 

06432 

61000 

06463 

RESULT  ZERO 

• 

06146 

SEL 

CL  •  1 

06433 

52000 

OOOOI 

• 

06147 

AOD 

A*  2« APOS 

06434 

20600 

00002 

• 

06150 

JP 

AOR 

06435 

61000 

06450 

06151 

RPL 

Y* 1 • W ( 86) 

06436 

36036 

00000 

AOO  1  TO  C 

06152 

ENT 

A*  W( SCL2 ) 

06437 

1  1030 

06467 

40000  00000  TO  A 

06153 

JP 

AOR 

06440 

61000 

06450 

06154 

NEG 

RPT 

36 

06441 

70000 

00036 

06155 

LSH 

AO-UAPOS 

06442 

07600 

OOOOI 

142 


BEL  TP 


SPURT  OUTPUT  NO.  210 
PONTON*7/ 1/65 


CAROS 

Li  10  LABEL 

TA  STATEMENT 

LOC 

F  JKb 

Y 

NOTES 

06  156 

JP 

ZERO 

06443 

61000 

06463 

RESULT  ZERO 

06  157 

SUB 

A*  2* ANEG 

06444 

21700 

00002 

06160 

JP 

AQR 

06445 

61000 

06450 

NO  CHANGE 

06161 

RPL 

Y+  1  • W ( B6 ) 

06446 

36036 

00000 

• 

06162 

ENT 

A»W( SCL2+ 1 ) 

06447 

1  1030 

06470 

37777  77777  TO  A 

• 

06163  AQR 

R$H 

AQ»2 

06450 

03000 

00002 

SET  RADIX  PT 

• 

06164 

SEL 

CP  *W<  SCL2+2 ) 

06451 

51030 

06471 

SET  FIRST  TWO  SITS  0 

06165 

STR 

A*  W  (  UB6) 

06452 

15036 

00001 

RESULTANT  MANTISSA 

06  166 

STR 

B7  *0 

06453 

16700 

00000 

SHIFTS 

06167 

ADO 

Q*  W ( B  6 ) 

06454 

26036 

00000 

CR  ♦  SHIFTS 

06  170 

SUB 

0*  34*QNEG 

06455 

27700 

00034 

CR  ♦  SHIFTS  -28,  SKIP  IF  0  Nfc 

06  171 

STR 

0* W( B6 ) *SK I P 

06456 

14136 

00000 

STORE  RESULTANT  CHAR AC  TER  I S  T I 

06172 

JP 

ZERO 

06457 

61000 

06463 

RESULT  ZERO 

06  173 

SUB 

Q*77777*QP0S 

06460 

27600 

77777 

06  174 

EXIT 

06461 

61010 

06426 

* 

06175 

JP 

ERR 

06462 

61000 

07055 

OVERFLOW 

• 

06176  ZERO 

STR 

BO*W ( B6 1 

06463 

16036 

00000 

• 

06  177 

STR 

BO  *W (  1 >66 1 

06464 

16036 

00001 

RESULT  IS  ZERO 

06200 

ENT 

A*0 

06465 

11000 

00000 

06201  SCL 1 

EXIT 

06466 

61010 

06426 

06202  SCL2 

40000  00000 

06467 

40000 

00000 

06203 

37777  77777 

06470 

37777 

77777 

06204 

60000  00000 

06471 

60000 

00000 

06205  SET 

ENTRY 

06472 

6  1000 

00000 

06206 

EXIT 

06473 

61010 

06472 

06207  FXTOFL 

ENTRY 

06474 

61000 

00000 

06210 

ENT 

0*  X | B4 ) 

06475 

10044 

00000 

SCALING  POINT  TO  0 

06211 

ENT 

Y-Q*40034 

06476 

31000 

40034 

40034-S 

062  12 

STR 

A*W(B6) 

06477 

15036 

00000 

CHARACTERISTIC 

062  13 

ENT 

0*0 

06500 

10000 

00000 

06214 

ENT 

A*W(B5) 

06501 

1  1035 

00000 

FIX  NO 

06215 

R  JP 

SCL 

06502 

65000 

06426 

SCALE 

06216 

EXIT 

06503 

610110 

06474 

06217  FLTOFX 

ENTRY 

06504 

61000 

00000 

06220 

ENT 

0*X(B4) 

06505 

10044 

00000 

SCALING  PT  WITH  SIGN 

06221 

AOD 

0*L(B5) 

06506 

26015 

00000 

CHARACTERISTIC 

06222 

SUB 

0*40000 

06507 

27000 

40000 

06223 

ENT 

Y-0*  34 • APOS 

06510 

31600 

00034 

06224 

JP 

FLT0FX2 

0651  1 

61000 

06521 

TO  NE5  BRANCH 

06225 

STR 

A»L( FLTOF  X  1  ) 

06512 

15010 

06516 

SETUP  SHIFT 

06226 

SUB 

A*  36*  ANEG 

06513 

21700 

00036 

TEST  FOR  S  GREATER  THAN  29 

06227 

ENT 

A*0*SK I P 

06514 

11100 

00000 

CLEAR  SHIFT  GREATER  THAN  30 

06230 

ENT 

A* W (  UB5) 

06515 

11035 

00001 

MANTISSA 

06231  FLT0FX1 

RSH 

A*  0 

06516 

02000 

00000 

SHIFT 

06232 

STR 

A • W ( B6 ) 

06517 

15036 

00000 

RESULTS 

06233 

EXIT 

06520 

61010 

06504 

06234  FLT0FX2 

COM 

A*X77776*YLESS 

06521 

04640 

77776 

• 

06235 

JP 

ERR  1 2 

06522 

61000 

07075 

LEFT  SHIFT  GREATER  THAN  1 

• 

06236 

ENT 

A* W ( 1*B5> 

06523 

11035 

00001 

MANTISSA 

06237 

LSH 

A*  1 

06524 

06000 

00001 

SHIFT 

06240 

STR 

A* W( 86 ) 

06525 

15036 

00000 

RESULT 

BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N«7 / 1 /65 


CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

0624  1 

EXIT 

06526 

61010 

06504 

06242  TYPE 

ENTRY 

06527 

61000 

00000 

06243 

EXIT 

06530 

61010 

06527 

06244  PUNCH 

ENTRY 

06531 

61000 

00000 

06245 

EXIT 

06532 

61010 

06531 

06246  WS 

0 

0 

06533 

00000 

00000 

06247  WS1 

0 

0 

06534 

00000 

00000 

06250  WS2 

0 

0 

06535 

00000 

00000 

06251  WS3 

0 

0 

06536 

00000 

00000 

06252  WS4 

0 

0 

06537 

00000 

00000 

06253  WS5 

0 

0 

06540 

00000 

00000 

06254  WS6 

0 

0 

0654  1 

00000 

00000 

06255  WS7 

0 

0 

06542 

00000 

00000 

06256  WS10 

0 

0 

06543 

00000 

00000 

06257  WS11 

0 

0 

06544 

00000 

00000 

06260  WS 12 

0 

0 

06545 

00000 

00000 

06261  WS 1 3 

0 

0 

06546 

00000 

00000 

06262  WS 1 4 

0 

0 

06547 

00000 

00000 

06263  WS 1 5 

0 

0 

06550 

00000 

00000 

06264  WS 1 6 

0 

0 

06551 

00000 

00000 

06265  RZERO 

STR 

B0*W(B6> 

06552 

16036 

00000 

06266 

STR 

BO*W  ( B6+ l 1 

06553 

16036 

00001 

06267 

JP 

FP4 

06554 

6  1000 

06276 

06270  SQR 

ENTRY 

06555 

61000 

00000 

06271 

ENT 

A • W ( 1+B4) •APOS 

06556 

1  1634 

00001 

IS  MANTISSA  POSITIVE 

06272 

JP 

ERR  1 3 

06557 

61000 

07077 

NO  ERROR  EXIT 

06273 

ENT 

Q»  W( SQR l ) *ANOT 

06560 

10530 

06626 

MASK  FOR  2  EXP<-2) ,  2 

EXP ( -  5 1 

06274 

STR 

A»LI B61 •SKIP 

06561 

15116 

ooooo 

RESULT  CHARACTERISTIC 

ZERO 

06275 

STR 

LP*A*SKIP 

06562 

47140 

00000 

EXTRACT  RANGE  FACTOR, 

SCALED  2 

06276 

STR 

A*W( i486) 'SKIP 

06563 

15136 

00001 

RESULT  MANTISSA  ZERO 

06277 

RSH 

A*25D*SKIP 

06564 

02100 

00031 

RANGE  FACTOR  SCALED  0 

• 

06300 

EXIT 

06565 

61010 

06555 

• 

06301 

ENT 

B5*A 

06566 

12570 

OOOOO 

LOAD  B5  WITH  FACTOR 

• 

06302 

ENT 

Q*W(  1484) 

06567 

10034 

00001 

M  SCALED  28 

06303 

MUL 

W  (  SQR2+B5 ) 

06570 

22035 

06633 

TIMES  K  SCALED  2 

06  304 

RSH 

AQ*2 

06571 

03000 

00002 

M (  1  1  SCALED  28 

06305 

STR 

Q*  W( WS ) 

06572 

14030 

06533 

SAVE  M( 1 ) 

• 

06306 

RSH 

0*3 

06573 

01000 

00003 

times  1/B 

• 

06307 

ADO 

0*  W( SQR 1 4 1 ) 

06574 

26030 

06627 

MINUS  B 

• 

06310 

MUL 

WIWS) 

06575 

22030 

06533 

0631  1 

RSH 

AQ*29D 

06576 

03000 

00035 

SCALED  27 

06312 

ADO 

0*W(S0Rl42) 

06577 

26030 

06630 

MINUS  C 

06313 

STR 

Q*W(WS4l) 

06600 

14030 

06534 

SAVE  -A  SCALED  27 

06314 

CL 

Q 

06601 

10000 

OOOOO 

SET  UP 

06315 

ENT 

A* W( WS ) 

06602 

1  1030 

06533 

Ml  1  ) 

• 

06316 

RSH 

AQ*4 

06603 

03000 

00004 

SCALED  54 

« 

06317 

DIV 

W< WS411 

06604 

23030 

06534 

M (  1  )/(-A)  SCALED  27 

• 

06320 

ADD 

o#w<  ws*n 

06605 

26030 

06534 

MINUS  A 

06  321 

STR 

0*W(WS) 

06606 

14030 

06533 

SAVE  -2 ( SORT  M<  1  I 

06322 

ENT 

A*L ( 84  ) 

06607 

1  1014 

OOOOO 

CHARACTERISTIC 

06323 

ADD 

A* W( SQR 143) 

06610 

20030 

06631 

PLUS  BIAS 

OUTPUT  NO.  210 

BELTP 

P0NT0N*7/1/65 

CARDS 

LI  ID  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

• 

06324 

LSH  A*  290 

06611 

06000 

00035 

HALVEO 

• 

06325 

STR  A*L ( 86 ) • ANEG 

06612 

15716 

00000 

TO  RESULT  CHECK  EVtN/ODD 

• 

06326 

MUL  Wt  SQR3  +  B5 )»SK IP 

06613 

22135 

06637 

EVEN  CHAR  CORRECTION  SCALED  29 

• 

06327 

MUL  W ( SQR4+B5 ) 

06614 

22035 

06643 

000  CHAR 

• 

06  330 

RSH  AQ*28D 

06615 

03000 

00034 

N  SCALEO  29 

• 

06331 

COM  Q*W(SQR1+4)*YLESS 

06616 

04230 

06632 

IS  N  NORMALIZED 

06332 

JP  SORT  1 

06617 

61000 

06624 

YES 

06333 

ENT  A*LIB6) 

06620 

1  10(6 

00000 

AOO  1 

06334 

AOO  A • 1 

06621 

20000 

00001 

TO 

06335 

STR  A*  L ( B6 1 

06622 

15016 

03000 

CHAR. 

06336 

RSH  Q*1 

06623 

01000 

00001 

NORMALIZE 

06337  S0RT1 

STR  Q*W(l+86) 

06624 

14036 

00001 

STORE  RESULT 

06340 

EXIT 

06625 

61010 

06555 

06341  SQR 1 

0600000000 

06626 

06000 

00000 

MASK 

06342 

6376776144 

06627 

63767 

76144 

-B  SCALEO  28 

06343 

7500402153 

06630 

75004 

02153 

-C  SCALEO  27 

06344 

0000040000 

06631 

00000 

40000 

BIAS 

06345 

2000000000 

06632 

20000 

00000 

1.0  SCALED  28 

06346  SQR2 

0000000007 

06633 

00000 

00007 

K ( 3 )  FOR  BITS  00 

06347 

000000006 

06634 

00000 

00006 

K ( 2 )  01 

06350 

0000000005 

06635 

00000 

00005 

Kt  1  >  ID 

06351 

0000000004 

06636 

00000 

00004 

MO)  II 

06352  S0R3 

6371733412 

06637 

637  17 

334  12 

7  EXP ( -  1  /2 ) *2* 10  EXP(-9)  SCALE 

►— • 

D  29 

4^ 

06353 

6273720435 

06640 

62737 

20435 

6  EXPI-1/21 

• 

06354 

6154066433 

06641 

61540 

66433 

5  EXP (-1/2) 

• 

06355 

5777777776 

06642 

57777 

77776 

4  EXP  f - 1/2  > 

• 

06356  S0R4 

5671230431 

06643 

56712 

30431 

(2/7)  E  XP (  1/2) 

• 

06357 

5541454270 

06644 

55414 

54270 

(  1/3)  EXP ( 1/2) 

• 

06360 

5360566233 

06645 

53605 

66233 

(2/5)  EXPd/2) 

06361 

5127660627 

06646 

51276 

60627 

(  1/2)  E  X  P (  1/2) 

06362  ATAN 

ENTRY 

06647 

61000 

00000 

06363 

ENT  Q*L(B4) 

06650 

10014 

00000 

C 

06364 

COM  0*4000 1 *YMORE 

06651 

04300 

40001 

LESS  THAN  400DI 

• 

06365 

JP  ERR  1 6 

06652 

61000 

07103 

NO-ARGUMENT  TOO  LARGE 

• 

06366 

COM  0*37745*YLESS 

06653 

04200 

37745 

• 

06367 

JP  RZERO 

06654 

61000 

06552 

06370  AT  AN  1 

ENT  A*40000 

06655 

1  1000 

40000 

- 

06371 

STR  A-Q* W ( WS5 1 

06656 

33030 

06540 

TO  A  SET  UP  SHIFT 

06372 

ENT  Q*W  ( 1 ♦B4 ) 

06657 

10034 

00001 

MANTISSA 

• 

06373 

RSH  0*A 

06660 

01070 

00000 

CONVERT  TO  FIXED  PUINT 

• 

06374 

STR  Q*W(WS5) 

06661 

14030 

06540 

M 

• 

06375 

MUL  WIWS5) 

06662 

22030 

06540 

M2 

06376 

RSH  AQ*33 

06663 

03000 

00033 

06377 

STR  Q«  W( WS6 ) 

06664 

14030 

06541 

M2 

06400 

ENT  B5*0 

06665 

12500 

00000 

06401 

ENT  0*  W  ( AT  AN5 ) 

06666 

10030 

0672  1 

06402  ATAN2 

MUL  W(WS6) 

06667 

22030 

0654  1 

HASTINGS  CONSTANT 

06403 

RSH  A0*35 

06670 

03000 

00035 

TO  0 

• 

06404 

AOO  Q*W( ATAN5+B5+1 ) 

06671 

26035 

06722 

• 

06405 

BSK  B5*4 

06672 

71500 

00004 

• 

06406 

JP  ATAN2 

06673 

61000 

06667 

• 

06407 

MUL  W ( WS5 ) 

06674 

22030 

06540 

M 

145 


B6LTP 


SPURT  OUTPUT  NO.  210 
PONT  0N*7 / 1 /65 


CA*D$ 


LI  [D 

LABEL 

TA  STATEMENT 

lOc 

F  JK9 

Y 

NOTES 

064  10 

RSH 

AQ*34 

06675 

03000 

00034 

064  1  1 

JP 

AT  AN3*QNEG 

06676 

60300 

06710 

064  12 

RPT 

36 

06677 

70000 

00036 

POS  RESULT 

064  13 

LSH 

0*  1  *QNEG 

06700 

05300 

00001 

064  14 

JP 

RZERO 

06701 

6  1000 

06552 

064  IS 

ENT 

A*  3774  3+B7 

06702 

11007 

37743 

064  16 

STR 

A  *  W ( B6 ) 

06703 

15036 

00000 

OF  RESULT 

064  17 

ENT 

A*0 

06704 

11000 

00000 

CLEAR 

06420 

LSH 

AQ*34 

06705 

07000 

00034 

06421 

STR 

A*  W(  1 +B6 ) 

06706 

15036 

00001 

MANTISSA  OF  RESULT 

06422 

EXIT 

06707 

61010 

06647 

06423 

ATAN3 

RPT 

36 

06710 

70000 

00036 

NEG  RESULT 

06424 

LSH 

Q*  1*QP0S 

0671  1 

05200 

00001 

06425 

JP 

RZERO 

067  12 

61000 

06552 

06426 

ENT 

A*  377  43+Q  7 

06713 

1  1007 

37743 

06427 

STR 

A*  W( B6 ) 

06714 

15036 

00000 

OF  RESULT 

06430 

ENT 

A*  3 

06715 

1  1000 

00003 

NEG  SIGN 

0643  1 

LSH 

AQ  *34 

06716 

07000 

00034 

06432 

STR 

A*  W(  1 +B6 ) 

06717 

15036 

00001 

MANTISSA  FOR  RESULT 

06433 

EXIT 

06720 

61010 

06647 

06434 

ATAN5 

77477 

75334 

06721 

77477 

75334 

K  1  1 

06435 

01536  53004 

06722 

01536 

53004 

<9 

06436 

742  14 

i  27222 

06723 

74214 

27222 

K7 

06437 

06143 

1  01016 

06724 

06143 

01016 

<5 

06440 

65266  23005 

06725 

65266 

23005 

K3 

0644  1 

37777 

'  50120 

06726 

37777 

50120 

K  1 

06442 

EXP 

ENTRY 

06727 

61000 

00000 

06443 

ENT 

0*  W(  1  +  B4) *QPOS 

06730 

10234 

0000  1 

MANTISSA 

06444 

JP 

EXP2 

06731 

6  1000 

06744 

06445 

ENT 

A* L  C  B4  ) 

06732 

1  1014 

00000 

CHARACTERISTIC 

06446 

COM 

A * 400 34 *Y MORE 

06733 

04700 

40034 

C  LESS  THAN  40034 

06447 

JP 

ERR  1  7 

06734 

61000 

07110 

NO-OVERFLOW 

06450 

COM 

A*  37744*YMORE 

06735 

04700 

37744 

C  LESS  THAN  37744 

06451 

JP 

EXP4 

06736 

61000 

0675  1 

NO 

06452 

EXP  1 

ENT 

A-40001 

06737 

I  1000 

40001 

06453 

STR 

A*  W ( B6 ) 

06740 

15036 

00000 

RESULT  IS 

06454 

ENT 

A* W I E  XP 1 0 ) 

0674  1 

1  1030 

07006 

ONE 

06455 

STR 

A ■ W ( 1 ♦ B6 ) 

06742 

15036 

00001 

C6456 

EXIT 

06743 

61010 

06727 

06457 

EXP2 

ENT 

A* L ( B 4  ) 

06744 

11014 

00000 

06460 

COM 

A*  400 34 • YMORE 

06745 

04  700 

40034 

06461 

JP 

RZERO 

06746 

61000 

06552 

06462 

EXP3 

COM 

A*  37744  *YLES$ 

06747 

04600 

37744 

C  LESS  THAN  37744 

06463 

JP 

EXP  1 

06750 

61000 

06737 

YES 

06464 

EXP4 

MUL 

W ( EXP  1 0+ 1  ) 

06751 

22030 

07007 

L0GE1/LN10 

06465 

STR 

A*W( WS 1 2 ) 

06752 

15030 

06545 

06466 

ENT 

A*  40032 

06753 

1  1000 

40032 

06467 

SUB 

A*  W( B4  ) 

06754 

21034 

00000 

CHARACTERISTIC 

06470 

STR 

A*W( WS 13) 

06755 

15030 

06546 

SET  UP  SHIFT 

06471 

ENT 

A*  W ( WS  1 2 ) 

06756 

1  1030 

06545 

064  72 

RSH 

AQ  *W ( WS 13)*AP0S 

06757 

03630 

06546 

CONVERT  TO  FIXED  POINT 

06473 

JP 

EXP7 

06760 

61000 

07003 

NEG  NUMBER 

06474 

ADD 

A*  4000 1 

06761 

20000 

40001 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N#7/1/65 


CAROS 

LI  10  LABEL 

TA  STATEMENT 

LOC 

F  JK8 

Y 

NOTES 

06475 

STR  A*W( B6 ) 

06762 

15036 

00000 

06476  EXP5 

ENT  A*0 

06763 

11000 

00000 

• 

06477 

RSH  AQ* 1 

06764 

03000 

00001 

# 

06500 

MUL  W<  EXP  10+2 ) 

06765 

22030 

07010 

• 

06501 

RSH  A0*35 

06766 

03000 

00035 

06502 

STR  Q*W( WS  1 4 ) 

06767 

14030 

06547 

06503 

ENT  B5*0 

06770 

12500 

00000 

CLEAR 

06504 

ENT  Q*W<  EXP  10*3 ) 

0677  1 

10030 

0701  1 

K6 

06505  EXP6 

MUL  W1WS14) 

06772 

22030 

06547 

K6X 

06506 

RSH  AQ*34 

06773 

03000 

00034 

• 

06507 

ADO  Q*W(EXP10*B5*4) 

06774 

26035 

07012 

• 

06510 

BSK  B5*5 

06775 

71500 

00005 

• 

06511 

JP  EXP6 

06776 

61000 

06772 

• 

06512 

ENT  A*  0 

06777 

11000 

00000 

• 

06513 

LSH  A0*35 

07000 

07000 

00035 

065  14 

STR  A*  W( 1 +  B6  J 

07001 

15036 

00001 

RESULT 

06515 

EXIT 

07002 

61010 

06727 

06516  EXP7 

AOO  A*  40000 

07003 

20000 

40000 

• 

06517 

STR  A*W(B6) 

07004 

15036 

00000 

# 

06520 

JP  EXP5 

07005 

6  1000 

06763 

• 

06521  EXP  10 

10000  0 

07006 

10000 

00000 

MANTISSA  OF  1 

06522 

27052  43542 

07007 

27052 

43542 

L0GE1/LN10 

• 

06523 

11504  04651 

07010 

11504 

04  651 

PROGRAM  CONSTANT 

# 

06524 

00056  24630 

0701  1 

00056 

24630 

K 

• 

06525 

00155  74340 

07012 

00155 

74340 

K5 

06526 

01152  16565 

07013 

01152 

16565 

K4 

06527 

04035  41132 

07014 

04035 

41  132 

K3 

06530 

12466  00553 

07015 

12466 

00553 

K2 

• 

06531 

22327  26210 

07016 

22327 

26210 

K  1 

• 

06532 

20000  0 

07017 

20000 

00000 

FIXED  POINT  1 

* 

06533  AERR1 

STR  A*L ( AERR2+2 ) 

07020 

15010 

07042 

« 

06534 

CONSOLE  HOLO 

07021 

64120 

00142 

07022 

03000 

00000 

• 

06535 

TYPET  $CR$  $LF S SLFSFP  ERROR $C 

RSAD0RSS07023 

6  1000 

07030 

PSSSPS 

07024 

04030 

31325 

07025 

05122 

72724 

07026 

27040 

61111 

07027 

27050 

50000 

07030 

64120 

00142 

07031 

00000 

00022 

07032 

00000 

07024 

# 

06536 

ENT  Q*L  ( FL  TPT  ) 

07033 

10010 

06266 

06537 

SUB  0*1 

07034 

27000 

00001 

06540 

TYPEC  Q*$SP$*$SPS*$SP$*SSP$ 

07035 

64110 

00141 

07036 

00000 

00000 

07037 

77050 

50505 

# 

06541  AERR2 

TYPE  100*AERR2 

07040 

64120 

00142 

07041 

00000 

00012 

07042 

00000 

07040 

# 

06542 

ENT  B4*L(FP4) 

07043 

12410 

06276 

* 

06543 

ENT  B5*L(FP5) 

07044 

12510 

06277 

• 

06544 

ENT  B6*L ( F  P6 ) 

07045 

12610 

06300 

8ELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N«7/ 1/65 


4^ 


CARDS 


Li  ID 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

06545 

ENT 

87  *L ( FP7 ) 

07046 

12710 

06301 

06546 

CL 

A 

07047 

1  1000 

00000 

06547 

CL 

Q 

07050 

10000 

00000 

06550 

CONSOLE  RELEASE 

07051 

64120 

00142 

07052 

04000 

00000 

06551 

FPSTOP 

REX 

STOPRUN 

07053 

64120 

00142 

07054 

05000 

00000 

06552 

ERR 

ENT 

B7  «L ( FP7 1 

07055 

12710 

06301 

06553 

ENT 

A«U AERR+B71 

07056 

1  1017 

07060 

06554 

JP 

AERRI 

07057 

6  1000 

07020 

06555 

AERR 

0 

ADOFL 

07060 

00000 

07064 

06556 

0 

SBOFL 

07061 

00000 

07066 

06557 

0 

MLOFL 

07062 

00000 

07070 

06560 

0 

DVOFL 

07063 

00000 

07072 

06561 

ADOFL 

06111 

110524 

07064 

06111 

10524 

06562 

1321050505 

07065 

13210 

50505 

06563 

SBOFL 

3032070524 

07066 

30320 

70524 

06564 

1321050505 

07067 

13210 

50505 

06565 

mlofl 

2232210524 

07070 

22322 

10524 

06566 

1321050505 

07071 

13210 

50505 

06567 

DVOFL 

1  116330524 

07072 

1  1163 

30524 

06570 

1321050505 

07073 

13210 

50505 

06571 

ERR  1  1 

ENT 

A*ERR20*SKIP 

07074 

11100 

07112 

06572 

ERR  1 2 

ENT 

A*ERR2 1 

07075 

1  1000 

07114 

06573 

JP 

AERRI 

07076 

61000 

07020 

06574 

ERR  13 

ENT 

A*  ERR22  *SK1 P 

07077 

11100 

07116 

06575 

ERR  1 4 

ENT 

A*ERR23 

07  100 

1  1000 

07120 

06576 

JP 

AERR  1 

07101 

61000 

07020 

06577 

ERR  1 5 

ENT 

A*6RR24*SKIP 

07102 

1  1  100 

07122 

06600 

ERR  1 6 

ENT 

A*ERR25 

07103 

1  1000 

07124 

06601 

JP 

AERRI 

07104 

61000 

07020 

06602 

ERR  1 6 A 

ENT 

A«  ERR40 

07105 

1  1000 

07132 

06603 

JP 

AERRI 

07106 

61000 

07020 

06604 

ERR  1 0 

ENT 

A*ERR27*SKIP 

07107 

11100 

07130 

06605 

ERR  17 

ENT 

A*  ERR26 

07  1  10 

1  1000 

07126 

06606 

JP 

AERRI 

07111 

61000 

07020 

06607 

ERR20 

1621210530 

07112 

16212 

10530 

06610 

1231052324 

07113 

12310 

52324 

066  11 

ERR21 

3010062112 

07  1  14 

30100 

62112 

06612 

0524132105 

07115 

0524  1 

32105 

06613 

ERR22 

30262705 23 

07116 

30262 

70523 

06614 

12  14052324 

071  17 

12140 

52324 

06615 

ERR23 

3016230 524 

07120 

30162 

30524 

066  16 

1321050505 

07121 

13210 

50505 

06617 

ERR24 

10243  00524 

07122 

10243 

00524 

06620 

1321050505 

07123 

13210 

50505 

06621 

ERR25 

0631062305 

07124 

06310 

62305 

06622 

2413210505 

07125 

24132 

10505 

06623 

ERR26 

1235250524 

07126 

12352 

50524 

06624 

1321050505 

07127 

13210 

50505 

06625 

ERR27 

2432312532 

07130 

24323 

12532 

06626 

3105241321 

07131 

31052 

4  1321 

06627 

ERR40 

2124141205 

07132 

21241 

41205 

NOTES 


LOG  ERROR 

ILL  SET  NO 
SCALE  OFL 


BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CAROS 

LI  10 

LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

06630 

1227272427 

07  133 

12272 

72427 

06631 

LERR 

STR 

A«L( LERR+3) 

07  134 

15010 

07137 

06632 

RPL 

Y*  1  «L ( POW 1 4 ) 

07135 

36010 

07170 

06633 

STR 

A«L ( FL  TPT ) 

07136 

15010 

06266 

• 

06634 

ENT 

A«0 

07137 

11000 

00000 

• 

06635 

JP 

AERR1 

07140 

61000 

07020 

m 

06636 

ERR2 

ENT 

A»ERR30»SKIP 

07141 

11100 

07152 

• 

06637 

ERR3 

ENT 

A*ERR31 

07142 

11000 

07154 

• 

06640 

JP 

LERR 

07  143 

61000 

07134 

# 

06641 

ERR4 

ENT 

A*ERR32«SKIP 

07144 

11100 

07156 

• 

06642 

ERR5 

ENT 

A»ERR33 

07145 

11000 

07160 

• 

06643 

JP 

LERR 

07146 

61000 

07134 

• 

06644 

ERR6 

ENT 

A«ERR34»$K I P 

07147 

11100 

07162 

• 

06645 

ERR7 

ENT 

A*ERR35 

07150 

11000 

07164 

• 

06646 

JP 

LERR 

07151 

61000 

07134 

06647 

ERR  30 

2324310524 

07152 

23243 

10524 

06650 

1031050505 

07153 

10310 

50505 

• 

06651 

ERR31 

2324053106 

07154 

23240 

53106 

NO  TAB 

• 

06652 

0705050505 

07155 

07050 

50505 

• 

06653 

ERR32 

232431051 1 

07  156 

23243 

1051  1 

NOT  OEC 

+ 

06654 

1210050505 

07157 

12100 

50505 

• 

06655 

ERR33 

2324051 112 

07  160 

23240 

51112 

NO  OEC  PT 

06656 

1005253105 

07161 

10052 

53105 

06657 

ERR34 

2706231412 

07  162 

27062 

31412 

RANGE  ERR 

• 

06660 

0512272705 

07163 

05122 

72705 

# 

06661 

ERR35 

1223110510 

07  164 

12231 

10510 

END  CODE 

• 

06662 

2411 120505 

07165 

24111 

20505 

• 

06663 

startreao 

ENTRY 

07166 

61000 

00000 

• 

06664 

EXIT 

07167 

61010 

07166 

• 

06665 

POW 1  4 

NO-OP 

07170 

12000 

00000 

# 

06666 

ASIN 

ENTRY 

07171 

61000 

00000 

• 

06667 

ENT 

A»  4000  1 

07172 

1  1000 

40001 

BIASEO  CHAR  EQUALS  1 

• 

06670 

SUB 

A»L ( B4 )• APOS 

07173 

21614 

00000 

1 -C t  TEST  C  GREATER  THAN 

1 

• 

06671 

JP 

ERR  16 

07174 

61000 

07103 

YES  ERROR 

• 

06672 

ENT 

B5«A 

07175 

12570 

00000 

B5  EQUALS  l-C  TEST  C  EQUALS  1 

• 

06673 

JP 

AS  IN4«  AZERO 

07176 

60400 

07340 

# 

06674 

SUB 

A*  1  • ANOT 

07177 

21500 

00001 

-C  TEST  C  EQUALS  0 

06675 

JP 

ASIN3 

07200 

61000 

07261 

YES  TO  TEST  ABS(M)  EQUALS 

1/2 

06676 

COM 

A*  140* YMORE 

07201 

04700 

00016 

06677 

ENT 

A«0«SKIP 

07202 

11100 

00000 

06700 

HERE 

ENT 

A»Wt  HB4)  •SKI P 

07203 

11134 

00001 

06701 

JP 

ASIN2 

07204 

6  1000 

07255 

06702 

LSH 

A*  1 

07205 

06000 

00001 

SCALED  29 

06703 

STR 

A*W( WS ) 

07206 

15030 

06533 

SAVEO 

06704 

RSH 

AQ»290+B5 

07207 

03005 

00035 

M«2*«C  EQUALS  Y  SCALEO  29 
LS  X 

E  QUA 

• 

06705 

STR 

Q«W(WS+1 ) 

07210 

14030 

06534 

# 

06706 

MUL 

w<  ws*n 

0721  1 

22030 

06534 

# 

06707 

RSH 

AQ*290 

07212 

03000 

00035 

SCALED  29  0  IN  A 

06710 

AS  IN  1 

STR 

A*W(WS+1 ) 

07213 

15030 

06534 

STORE  P 

0671  1 

MUL 

W( ASINK) 

07214 

22030 

07357 

K  *X»«  2 

BFLTP 


SPURT  OUTPUT  NO.  210 
PONT  ON*  7 /  1/65 


CARDS 

Li  ID  LABEL 

TA  STATEMENT 

LOG 

F  JKB 

Y 

NOTES 

C6712 

RSH 

A0«29D 

072  15 

03000 

00035 

SCALED  29  EQUALS  l 

06713 

ENT 

Y ♦ Q*W ( AS  I NK*  3 1 

07216 

30030 

07362 

Z  +  C 

06  7  1 4 

STR 

A*W( WS*2) 

07217 

15030 

36535 

SAVED 

06715 

ENT 

A • W( AS  I NK  + 1 ) 

07220 

1  1030 

07360 

A 

067  16 

STR 

A*Q«0 

07221 

32000 

00000 

♦  7 

06717 

MUL 

A 

07222 

22070 

00000 

(  A*  Z  1  •  •  2 

06720 

RSH 

AQ«29D 

07223 

03000 

00035 

SCALED  29 

06721 

ADD 

Q»W( AS  I NK ♦2 1 

07224 

26030 

0736  1 

♦B  EQUALS  U 

06722 

STR 

Q«  W ( WS+  3 1 

07225 

14030 

06536 

SAVE  U 

06723 

MUL 

W( WS^2 ) 

07226 

22030 

06535 

u«<  z*c> 

06  72** 

RSH 

AQ»29D 

07227 

03000 

00035 

SCALED  29  EQUALS  V 

06725 

ENT 

Y^Q*W( ASINK+4 l 

07230 

30030 

07363 

V  ♦D 

06726 

SUB 

Q*W( WS+31 

07231 

27030 

06536 

V-D 

06727 

ADD 

Q*W( ASINK*5) 

07232 

26030 

07364 

♦  E 

06730 

STR 

A«  W ( WS*  3 1 

07233 

15030 

06536 

06731 

MUL 

W( WS*3) 

07234 

22030 

06536 

06732 

RSH 

A0*29D 

07235 

03000 

00035 

SCALED  29 

06733 

ADD 

Q»  W ( AS  I NK  +  61 

07236 

26030 

07365 

♦  F  EQUALS  ARCSIN  X/2X 

0673*4 

MUL 

W(WS1 

07237 

22030 

06533 

•  M  EQUALS  (1/21  ARCS! N  X  SCALED 

28+C 

06  7  35 

RSH 

AQ*27D+B5 

07240 

03005 

00033 

•  ( 4  *2 • «C  1  EQUALS  2 ARCS I N  X  SC 
28 

P  SCALED  28  SKIP  IF  P  EQUALS  3 

06736 

ENT 

A«  W ( WS* 1  1  •  AZE RO 

0724  1 

11430 

06534 

06737 

STR 

A  +  Q«  Q  •  SK 1  P 

07242 

32100 

00000 

P  — 2* ARCS I N  X  EQUALS  ARCSIN  Y 

06740 

RSH 

0*  1 

07243 

01000 

00001 

ARCSIN  Y  SCALED  28 

06741 

STR 

Q#A«QP0S 

07244 

14240 

00000 

TEST  M  less  than  0 

06742 

STR 

A*  A 

07245 

15040 

OOOOO 

YES  FORM  ABSl*) 

06743 

RPT 

2  90 

07246 

70000 

00035 

NORMALIZE 

06744 

LSH 

A*  UANEG 

07247 

06700 

00001 

SCALED  30 

06745 

JP 

ASIN2+2 

07250 

61000 

07257 

M  EQUALS  0 

06746 

LSH 

A*29D 

07251 

06000 

00035 

PRESERVE  SIGN 

06747 

RSH 

A» 1 «QPOS 

07252 

02200 

0000  1 

M  SCALED  28  TEST  M  LESS  THAN  3 

06750 

STR 

A*  A 

07253 

15040 

OOOOO 

YES  -ABS(M) 

06751 

ENT 

Q«37745  +  B7*SMP 

07254 

10107 

37745 

C  EQUALS  <27-SF)-27*BIAS 

06752  ASIN2 

ENT 

0  •  A 

07255 

10070 

OOOOO 

C  EQUALS  0 

06753 

STR 

0*  L ( B6 ) 

07256 

14016 

OOOOO 

STORE  ARCSIN  Y 

06754 

STR 

A • W ( 1+B61 

07257 

15036 

00001 

AS  C.M 

06755 

EXIT 

07260 

61010 

0717  1 

06756  ASIN3 

ENT 

Q*W( 1 ♦ B  U 1 

07261 

10034 

OOOOI 

M  EQUALS  Y  SCALED  26 

06757 

STR 

Q«  A*QNEG 

07262 

14340 

OOOOO 

FORM 

06760 

STR 

A*  A 

07263 

15040 

OOOOO 

- ABS ( Y 1 

06761 

ADD 

A»W(ASINP+21 •  ANOT 

07264 

20530 

37370 

1/2-A8S(Y)  TEST  ZERO 

06762 

JP 

ASIN5 

07265 

61000 

07347 

YES  USE  (PI  1/6 

06763 

ADO 

A*  W< AS  I NP*2 1 • QPOS 

07266 

20230 

07370 

(  1-AB$( Y) 1/2  SCALEO  29 

06764 

STR 

A«CPW(WS*  1  1«SKIP 

07267 

15170 

06534 

STORE  X**2  AND 

06765 

STR 

A*W( WS+ 1 1 

07270 

15030 

36534 

SAVE  SIGN  OF  Y 

06766 

RPT 

29D* 

0727  1 

70000 

00035 

normalize 

06767 

LSH 

A*  1  • ANEG 

07272 

06700 

00001 

SCALED  30 

06770 

JP 

ASIN5-1 

07273 

61000 

07346 

ABS ( X 1  LESS  THAN  2*«- 1 3  USE  <P 

1  1/2 

06771 

ENT 

0*  A 

07274 

10070 

OOOOO 

SAVE  X**2 

06772 

STR 

B7  •  A 

07275 

16740 

OOOOO 

26-SF 

BELTP 


SPURT  OUTPUT  NO.  210 
PONT  0N»  7/ 1 /65 


Cn 

O 


CAROS 


LI  10 

LABEL 

TA  STATEMENT 

06773 

SUB 

A*300 

06774 

LSH 

A*  290* ANEG 

06775 

LSH 

Q  *  270*  SK I P 

06776 

LSH 

0*  28D 

06777 

STR 

A*  A 

07000 

ENT 

B5*A 

07001 

STR 

Q*  W  ( wS*2 ) 

07002 

MUL 

W( ASINQ) 

07003 

RSH 

A0*29D 

07004 

ADO 

Q*  W( AS  I NQ* 1 ) 

07005 

MUL 

W( WS*2) 

07006 

RSH 

AQ  *290 

07007 

ADD 

Q • W( AS  I NQ*2 ) 

07010 

STR 

Q*W( WS) 

07011 

ENT 

Q*W(WS*2) 

07012 

LSH 

AQ  *260 

07013 

DIV 

W(  WS) 

07014 

ADD 

Q.W(WS) 

07015 

RSH 

0*1 

07016 

STR 

Q*W(  WS  ) 

07017 

FNT 

A*W(WS*2) 

07020 

CL 

Q 

0702  1 

RSH 

AQ  *4 

07022 

DIV 

W  (  WS  1 

0702  3 

AOO 

Q«  W( WS ) 

07024 

LSH 

AQ • 3 1 D 

07025 

ENT 

0*W(WS*11*QNEG 

07026 

STR 

A*CPW( WS) *SK  I  P 

07027 

STR 

A*  W ( WS ) 

07030 

ENT 

A«W(AS1NP* 1 ) •  QPOS 

07031 

STR 

0*Q*SKIP 

07032 

JP 

AS  I N  1 

07033 

STR 

A  •  A 

07034 

JP 

A S  IN  1 

07035 

ASIN4 

ENT 

Q • W ( 1 *84 ) 

07036 

STR 

Q*  A*QNEG 

07037 

STR 

A*  A 

07040 

ADD 

A*W( ASINP*2)*AZER0 

07041 

JP 

ERR  16 

07042 

ENT 

B5*4000 1 

07043 

JP 

AS  INS* 1 

07044 

ASIN5 

ENT 

85*40000 

07045 

ENT 

A*W(AS!NP-40000*85)*QP0S 

07046 

STR 

A»  A 

07047 

RSH 

A*  1 

07050 

STR 

85  *Q 

07051 

STR 

Q*  L ( B6 1 

07052 

STR 

A*W(  1  *-86) 

MOTES 


LOC 

F  JKB 

Y 

07276 

21000 

00036 

07277 

06700 

00035 

07300 

05100 

0003  3 

07301 

05000 

00034 

07302 

15040 

00000 

07303 

12570 

00000 

07304 

14030 

06535 

07305 

22030 

07372 

07306 

03000 

00035 

07307 

26030 

07373 

07310 

22030 

06535 

0731  1 

03000 

00035 

07312 

26030 

07374 

07313 

14030 

06533 

07314 

10030 

06535 

07315 

07000 

00032 

07316 

23030 

06533 

07317 

26030 

06533 

07320 

01000 

00001 

07321 

14030 

06533 

07322 

1  1030 

06535 

07323 

10000 

00000 

07324 

03000 

00004 

07325 

23030 

06533 

07326 

26030 

06533 

07327 

07000 

00037 

07330 

10330 

06534 

07331 

15170 

06533 

07332 

15030 

06533 

07333 

1  1230 

07367 

07334 

14100 

00000 

07335 

61000 

07213 

07336 

15040 

00000 

07337 

61000 

07213 

07340 

10034 

00001 

07341 

14340 

00000 

07342 

15040 

00000 

07343 

20430 

07  370 

07344 

61000 

07  103 

07345 

12509 

40001 

07346 

61000 

07350 

07347 

12500 

4  0000 

07350 

l  1235 

47365 

07351 

15040 

00000 

07352 

02000 

00001 

07353 

16500 

00000 

07354 

14016 

00000 

07355 

15036 

0000  1 

-(2*SF)  EOUALS  -(2-2C1 
- ( 1  -C  1  TEST  SF  EVEN 
NO  (1/4)*X**2  SCALED  29EQUALS 
T/2 

YES  (  I  /2 1 *X • • 2  SCALED  29  E  JUAL 

S  T/2 

1-C 

TO  B5 

SAVE  T/2 

A ( T /2  1 

SCALEO  29 

♦  ( fl/2 ) 

♦  (  T  /  2  1 

SCALEO  29  0  IN  A-RtG 
*(C/4 ) 

EOUALS  (  T  ♦  •  I  /  2  )  /  4  APPROX  £  JUA 
LS  K  1 
T/2 

•(1/8)  EOUALS  1/16  SCALED  S3 
( T/  161/R1 

♦  R  1 

*(1/2)  EOUALS  R2 
SAVE  R 2 
ONE  MORE 
ITERATION 
YIELDS 
(  T  •  •  1  /  2  )  /  2 
•2 

EOUALS  T  •  •  1/2  SCALEO  29  EJJAL 
S  ABS ( M 1 
X«*2  TEST  SIGN 
STORE  -M 
STORE  -M 

(PI )/2  SCALEO  28 
CHANGE  SIGN 

TO  CALC  FOR  Y  GREAIER  .5 
-(PI1/2 

TO  CALC  FOR  Y  LESS  THAN 


M 

FORM 

-ABS(M) 

*(1/21  TEST  A  ZERO 
NO  ERROR 
C  FOR  (PI  I / 2 

C  FOR  (PI ) / 6 

(PI  )  / 60R (PI  1/2  TEST  M  LESS 
YES  -(PI ) / 6  OR  -(PI )/2 
M  SCALEO  28 
C 

STORE  ARCSIN  Y 
AS  C.M 


CARDS 


BELTP 


SPURT  OUTPUT  NO.  2 
PONTON*  7/  1  /< 


LI  10  LABEL  TA  STATEMENT 


07053 

EXIT 

07054 

ASINK 

2041015167 

07055 

1070502075 

07056 

1507662270 

07057 

0125170245 

07060 

0151 

206634 

07061 

3121124150 

07062 

1720500666 

07063 

AS  I NP 

2060251072 

07064 

31 10375526 

07065 

1000000000 

07066 

1444176653 

07067 

ASINQ 

6570132340 

07070 

2065211354 

07071 

0204600545 

07072 

ACOS 

ENTRY 

07073 

RJP 

ASIN 

07074 

ENT 

A*  4000 1 

07075 

SUB 

A*L(B6) 

07076 

ENT 

Q*W( 1+B61 

07077 

RSH 

Q*  A 

07100 

SUB 

Q*W( AS INP+31 *QNEG 

07101 

JP 

ACOS  1 

07102 

RPT 

290 

07103 

LSH 

Q*  1  *QPOS 

07  104 

JP 

ACOS  1 

07105 

LSH 

Q*29D 

07106 

RSH 

Q*  1 

07107 

STR 

B7*A 

07110 

ADD 

A*  37746*SKIP 

07111 

AC0S1 

STR 

Q.Q 

071  12 

STR 

A*L(B6) 

07113 

STR 

Q*CPW (  1  +  B6 1 

071  14 

EXIT 

071  15 

LOGE 

ENTRY 

071  16 

ENT 

Q*  W ( 1  +  B4) 

07117 

COM 

Q*W(LOGER)*YMORE 

07120 

JP 

ERR16A 

07121 

ENT 

Y-Q*W ( LOGER* 1 ) *ANEG 

07  122 

JP 

LOGE  1 

07123 

ENT 

LP*W( LOGER+2 ) 

07  124 

RSH 

A*  24D 

07125 

ENT 

B5*A 

07126 

MUL 

W ( LOGE  K  +  B5 ) 

07127 

RSH 

AQ*290 

07  130 

SUB 

0*W(  LOGER+ 1  ) 

07131 

ENT 

Y*Q*W { LOGE  A 4-2  ) 

07  132 

STR 

A*  W( WS 1 

07133 

ENT 

Y-f  0*W  (  LOGE  A  1 

07134 

STR 

A*W( WS*1  1 

07135 

MUL 

W(WS+1) 

07  136 

RSH 

AQ*27D 

07137 

STR 

Q*  W(  WS  +  1 ) 

LOC 

F  JKB 

Y 

07356 

61010 

07171 

07357 

20410 

15167 

07360 

10705 

02075 

07361 

15076 

62270 

07362 

01251 

70245 

07363 

01512 

06634 

07364 

31211 

24150 

07365 

17205 

00666 

07366 

20602 

51072 

07367 

31103 

75526 

07370 

10000 

00000 

07371 

14441 

76653 

07372 

65701 

32340 

07373 

20652 

1  1354 

07374 

02046 

00545 

07375 

61000 

00000 

07376 

65000 

07171 

07377 

11000 

40001 

07400 

21016 

00000 

07401 

10036 

0000  1 

07402 

01070 

00000 

07403 

27730 

07371 

07404 

61000 

07414 

07405 

70000 

00035 

07406 

05200 

00001 

07407 

61000 

07414 

074  10 

05000 

00035 

074  1  1 

01000 

00001 

07412 

16740 

00000 

07413 

20100 

37746 

07414 

14000 

00000 

07415 

15016 

00000 

07416 

14076 

00001 

07417 

61010 

07375 

07420 

61000 

00000 

07421 

10034 

00001 

07422 

04330 

07531 

07423 

61000 

07105 

07424 

31730 

07532 

07425 

61000 

07454 

07426 

40030 

07533 

07427 

02000 

00030 

07430 

12570 

00000 

07431 

22035 

07553 

07432 

03000 

00035 

07433 

27030 

07532 

07434 

30030 

07537 

07435 

15030 

06533 

07436 

30030 

07535 

07437 

15030 

06534 

07440 

22030 

06534 

07441 

03000 

00033 

07442 

14030 

06534 

NOTES 


K 

A 

B 

C 

D 

E 

F 

CPI  1/6  SCALED  29 
(PI  1/2  SCALEO  28 
1/2  SCALEO  28 
IPI1/2  SCALED  27 
-A  SCALEO  29 
B/2  SCALED  29 
C/4  SCALED  29 

GET  ARCSIN  Y 

BIASEO  CHARACTERISTIC 

1-C 

M  SCALEO  28 
ARCSIN  Y  SCALED  27 
-(PI  1/2  SCALEO  27 
ARCOS  Y  EQUALS  0 
NORMALIZE  (-ARCOS  Y) 
WITH  26+C  IN  B7 
(ARCOS  Y  EQUALS  0) 
SAVE  SIGN  OF  -M 
ANO  SCALE  28 
26+C 

♦BIAS-26  EQUALS  C 
SET  FOR  C  EQUALS  0 
STORE  ARCOS  Y 
AS  C'M 

LN ( Y )  IN  FLOATING  PT 
MANT I SSAEQMEQQ 
TEST  M  LESS  1 

TEST  M  GREATER  1/2 

NOi TRY  M  EQ  1/2 

GET  I 

FOR  K ( I  1 

IN  TABLE 

<(I)*0 

SCALEO  27 

-1  EQ  X 

X*C 

SAVED 

X*A 


SCALEO  27 
SAVEO 


.  SPURT  OUTPUT  NO.  210 

BELTP  PONTON*  7 / 1 /65 


CARDS 

U  10  LABEL 

TA  STATEMENT 

LOC 

F  JKB 

Y 

NOTES 

07  140 

ADD 

Q»W(LOGEA+l) 

07443 

26030 

07536 

Z*B 

07141 

MUL 

W(WS) 

07444 

22030 

06533 

*(X*C) 

07142 

RSH 

AQ*27D 

07445 

03000 

00033 

SCALEO  27  EQ  W 

07  143 

ENT 

Y+Q*W(L0GEA*4 ) 

07446 

30030 

0754  1 

W*E 

07144 

ADD 

0*W(L0GER*3) 

07447 

26030 

07534 

W-3 

07145 

ADO 

0*  W( LOGE A*3 ) 

07450 

26030 

07540 

♦(0*3) 

• 

07146 

AOO 

Q*  W( WS*  1  ) 

07451 

26030 

06534 

♦  Z 

• 

07147 

STR 

A* W( WS*  1 ) 

07452 

15030 

06534 

• 

07150 

MUL 

W(WS*1)*SKIP 

07453 

22130 

06534 

07151  L0GE1 

ENT 

Q*W( LOGE A+5 ) *SKI P 

0  74  54 

10130 

07542 

LN(  2) 

07152 

OIV 

W ( L0GER*3  )  • SK I P 

07455 

23130 

07534 

(-1/6)  EQLN(X)-F* (-1/6) 

07  153 

STR 

Q*Q*SK I P 

07456 

14100 

00000 

-LN ( 2 ) 

• 

07  154 

AOO 

Q*W(L0GEF*B5)*SKIP 

07457 

26135 

07543 

♦F*(-1/L)-LN(K(  I  )) 

• 

07  155 

JP 

ERR  1 6 A* ANOT 

07460 

60500 

07105 

• 

07156 

STR 

o*w( ws) 

07461 

14030 

06533 

EQ  LN ( 0 )  SCALE028 

• 

07157 

ENT 

A*L(B4) 

07462 

11014 

00000 

CHAR  EQ  P*2**14 

07160 

SUB 

A*40000*ANOT 

07463 

21500 

40000 

-BIASEQP, TEST  P  EQO 

07161 

JP 

L0GE2 

07464 

61000 

0751  1 

YES  SKIP  CALC 

07  162 

ENT 

0*  A*QPOS 

07465 

10270 

00000 

TEST  PLESSO 

07  163 

STR 

o«o 

07466 

14000 

00000 

USE  ABS(P) 

07  164 

RPT 

4*  AOV 

07467 

70100 

00004 

RANGE  OF  P 

07  165 

COM 

Q*L  ( LOGES )*YMORE 

07470 

04310 

07563 

TO  DETR  MIN  SHIFTS 

07166 

JP 

LOGEM 

07471 

61000 

07567 

07  167 

ENT 

B5*U(LOGES*B7) 

07472 

12527 

07563 

FOR  SCALING 

07170  L0GE1A 

MUL 

W(  L0GEA*5 ) 

07473 

22030 

07542 

07171 

LSH 

AQ*B5 

07474 

07005 

00000 

SCALED  45  47  50  53  56 

07172 

JP 

LOGEM+2 

07475 

61000 

07571 

07  173 

RPT 

L( COUNT) 

07476 

70010 

07600 

normalize 

07  174 

LSH 

AO* 1 • ANEG 

07477 

07700 

00001 

PRODUCT 

07175 

JP 

ERR16A 

07500 

61000 

07105 

07  176 

LSH 

A0*58D 

07501 

07000 

00072 

RETURN  SIGN  SCALED  28 

07177 

ENT 

Q*L(B4) 

07502 

10014 

00000 

P 

07200 

COM 

0*40000*YLESS 

07503 

04200 

40000 

TEST  P  LESS  0 

07201 

STR 

A*  A 

07504 

15040 

00000 

YES  -ABS ( P ) *LN ( 2 ) 

07202 

ENT 

Q*W( WS) 

07505 

10030 

06533 

LN(Q) 

07203 

ENT 

B5*B7-26D 

07506 

12507 

77745 

07204 

BJP 

B5*L0GE2-1 

07507 

72500 

07510 

07205 

RSH 

0*85*SKIP 

07510 

01  105 

00000 

07206  L0GE2 

ENT 

B7  *270 

07511 

12700 

00033 

SET  FOR  NO  SHI F TS ( P  EQ 

07207 

STR 

a*q*q*qpos 

07512 

32200 

00000 

LN(  Y) 

07210 

STR 

0*0 

07513 

14000 

00000 

ABS ( L  N ( Y ) ) 

07211 

JP 

L0GE3*AZER0 

07514 

60400 

07525 

SKIP  IF  Y  EQ  1 

• 

072  12 

STR 

B7*W( WS) 

07515 

16730 

06533 

SAVE  FACTOR 

• 

07213 

RPT 

290 

07516 

70000 

00035 

NORMALIZE 

• 

07214 

LSH 

0*  1  *0NEG 

07517 

05300 

00001 

ABS(LN(Y) ) 

07215 

JP 

ERR16A 

07520 

61000 

07105 

07216 

LSH 

0*280* APOS 

07521 

05600 

00034 

RETURN  SIGN  SCALED  28 

07217 

STR 

0*0 

07522 

14000 

00000 

AS  MANTISSA 

07220 

ENT 

A* W ( WS ) 

07523 

11030 

06533 

FORM 

• 

07221 

ADD 

A*37712*B7*SKIP 

07524 

20107 

377  12 

CHARACTERISTIC 

# 

07222  L0GE3 

CL 

0 

07525 

10000 

00000 

• 

07223 

STR 

A  *L ( B6 ) 

07526 

15016 

00000 

STORE 

07224 

STR 

0*W( 1  *B6 ) 

07527 

14036 

00001 

RESULT 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N*7/ 1/65 


CARDS  LI  ID  LABEL 
07225 

07226  LOGER 
.  07227 

.  07230 

07231 

.  07232  LOGEA 

.  07233 

.  07234 

.  07235 

.  07236 

.  07237 

.  072UO  LOGEF 

.  0724 l 

.  07242 

.  07243 

.  07244 

.  07245 

.  07246 

.  07247 

.  07250  LOGEK 

.  07251 

.  07252 

.  07253 

.  07254 

.  07255 

07256 
.  07257 

.  07260  LOGES 

.  07261 

.  07262 

.  07263 

.  07264  LOGEM 

.  07265 

.  07266 

.  07267 

.  07270 

0727  1 
07272 
.  07273 

.  07274  SAVE 

.  07275  COUNT 

.  07276  SIN 

.  07277 

.  07300 

.  07301 

.  07302 

07303 
.  07  304 

.  0730S 

.  07306 

.  07307 

.  07310 


TA  STATEMENT 
EXIT 

2000000000 
1000000000 
0700000000 
4777777777 
5770232732 
3427564  132 
0724376530 
4341324241 
5712656427 
1305620600 
5366557053 
5557247242 
5733156444 
6074650576 
6225723447 
6347732466 
6463606732 
6572323037 
3600000000 

3252525253 
3000000000 
2564272135 
2400000000 
2235423542 
2111111111 
2000000000 
0002300014 
0002600135 
0003101343 
0003413426 
ENT  B5 • 1 7D 
JP  L0GE1A 
STR  A*W(SAVE1 
ENT  A*  59D 
SUB  A*  BS 
STR  A*  W( COUNT  1 
ENT  A*  W ( SA VE ) 

JP  LOGE  1  A«-3 
RESERVE  1 
RESERVE  1 
ENTRY 

ENT  A*  L ( B4 ) 

COM  A»37767*YMORE 
JP  S  +  5 

STR  A*L ( B6 ) 

ENT  A*W(84*1) 

STR  A*W(B6*1> 

EXIT 

COM  A*  40034* YMORE 
JP  S*  STOP 
CL  L ( S INC0S2+ 1 ) 


LOC 

F  JKB 

Y 

NOTES 

07530 

61010 

07420 

07531 

20000 

00000 

ISCALEO  28 

07532 

10000 

00000 

I/2SCALE02B 

07533 

07000 

00000 

MASK  FOR  I 

07534 

47777 

77777 

-3  SCALEO  27  -6  SCALED26 

07535 

57702 

32732 

A  SCALEO  27 

07536 

34275 

64132 

B 

07537 

07243 

76530 

C 

07540 

43413 

2424  1 

D*3 

07541 

57126 

56427 

E 

07542 

13056 

20600 

LN( 2)  SCALEO  28 

07543 

S3665 

57053 

07544 

S5572 

47242 

1 

07545 

57331 

56444 

2 

07546 

60746 

50576 

3 

07547 

62257 

23447 

4 

07550 

63477 

32466 

5 

0755  1 

64636 

06732 

6 

07552 

65723 

23037 

7 

07553 

36000 

00000 

I  EO  0  IN  KID  EQ15/I8  +  I)  SCAL 
EO  28 

07S54 

32S25 

25253 

1 

07555 

30000 

00000 

2 

07S56 

25642 

72135 

3 

07557 

24000 

00000 

4 

07560 

22354 

23542 

5 

07561 

21111 

iiiii 

6 

07562 

20000 

00000 

7 

07563 

00023 

00014 

UPPER  HALF 

07564 

00026 

00135 

SHIFT  CONSTANTS 

07565 

00031 

01343 

LOWER  HALF 

07566 

00034 

13426 

CHAR  RANGE 

07567 

12500 

00021 

07570 

61000 

07473 

07571 

15030 

07577 

07572 

11000 

00073 

07573 

21005 

00000 

07574 

15030 

07600 

07575 

11030 

07577 

07576 

61000 

07476 

07577 

00000 

00000 

07600 

00000 

00000 

07601 

61000 

00000 

07602 

1 1014 

00000 

07603 

04700 

37767 

TEST  EXPONENT  LES  2EXP-10 

07604 

61000 

0761  1 

NO 

07605 

15016 

00000 

SET  SIN(X)  EO  X 

07606 

1  1034 

00001 

07607 

15036 

00001 

07610 

61010 

07601 

076  11 

04700 

40034 

07612 

61400 

07612 

EXPONENT  GEO  2EXP27 

07613 

16010 

07626 

154 


BEL  TP 


SPURT  OUTPUT  NO.  210 
PONTON*  7 / 1 /65 


CARDS 


LI  ID  LABEL  TA  STATEMENT 


0731  1 

ENT 

A*  W  (  HB4) 

07312 

S I  NCOS  1 

STR 

A*W<  SI  NCOS 20) •  APOS 

07313 

CP 

A*  ANOT 

07314 

JP 

SINC0S7* HAZERO 

07315 

ENT 

0*40033 

07316 

SUB 

0*L(B41 

07317 

STR 

0*  L ( S I NC0S2) 

07320 

ENT 

0*  A 

07321 

MUL 

W ( S I  NCOS  1 0 ) 

07322 

SINC0S2 

RSH 

AQ  *0 

07323 

ADO 

A*0 

07324 

SEL 

CL*X77774 

07325 

ENT 

B7  •  A 

07326 

RSH 

AQ  *  1 

07327 

JP 

S*  HB7 

07330 

JP 

*♦3 

07331 

CP 

0*  SK  I  P 

07332 

CP 

0 

07333 

ENT 

A*W(SINC0S20) • APOS 

07334 

CP 

0 

07335 

STR 

0*  W( S I NC0S20 ) 

07336 

MUL 

W<  SINC0S20) 

07337 

RSH 

AO  *29D 

07340 

STR 

Q*  W ( S I NCO  S20* 1 1 

07  34  1 

ENT 

B7  *3 

07342 

ENT 

Q*W(SINC0S1  HU) 

07343 

MUL 

W( SINC0S20+1 ) 

07344 

ENT 

0*  A 

07345 

ADD 

0*  W ( S 1 NCO  S 1 H  B  7 1 

07346 

B  JP 

B  7  •  S-3 

07347 

MUL 

WISINC0S20) 

07350 

JP 

S I NC0S6* ANEG 

07351 

CL 

L ( SI NC0S6+6 ) 

07352 

RPT 

320 

07353 

LSH 

AQ • l • ANEG 

07354 

JP 

SINC0S7 

07  355 

JP 

*♦5 

07356 

SINC0S6 

CL 

CP  L I S+  6 ) 

07357 

RPT 

320 

07  360 

LSH 

AQ*  HAPOS 

07361 

JP 

SINC0S7 

07362 

ENT 

Q*37743*B7 

07363 

STR 

Q*W( B6 ) 

07364 

ENT 

0*0 

07365 

LSH 

AQ*580 

07366 

STR 

A  *  W  (  HB6) 

07367 

EXIT 

07370 

SINC0S7 

CL 

A 

07371 

CL 

W (  B6 ) 

07372 

CL 

W  (  HB6) 

07373 

EXIT 

07374 

S I  NCOS  1 0 

2427630155 

LOC 

F  JK B 

Y 

NOTES 

07614 

11034 

00001 

07615 

15630 

07706 

ARG  IN  SINC0S20 

07616 

15540 

00000 

07617 

60400 

07674 

07620 

10000 

40033 

07621 

27014 

00000 

07622 

14010 

07625 

07623 

10070 

00000 

SARGS  TO  Q 

07624 

22030 

07677 

SARGS  TIMES  2/PI  IN  AQ 

07625 

03000 

00000 

QTREV  IN  AQ  AT  B30 

07626 

20000 

00000 

AOD  1  IF  COSINE 

07627 

52040 

77774 

07630 

12770 

00000 

QUADRANT  TO  B7 

07631 

03000 

00001 

FRAC  IN  0  AT 

B29 

07632 

61007 

07633 

07633 

61000 

07636 

QUADRANT  I 

07634 

14100 

00000 

QUAORANT  II 

07635 

14000 

00000 

QUAORANT  III 

07636 

1  1630 

07706 

quadrant  IV, 

ARG  TO  A 

07637 

14000 

00000 

-FRAC  IF  ARG 

NEGATIVE 

07640 

14030 

07706 

STORE  X  EQ  ♦ 

OR  -  FRAC  AT 

07641 

22030 

07706 

Y  EO  X**2  IN 

AQ  AT  B58 

07642 

03000 

00035 

Y  IN  Q  AT  B29 

07643 

14030 

07707 

07644 

12700 

00003 

07645 

10030 

07705 

KSUB9  IN  Q  AT 

B  32 

07646 

22030 

07707 

Y  TIMES  POLY 

07647 

10070 

00000 

TO  Q 

07650 

26037 

07701 

POLY  EO  POLY+KSUBI 

07651 

72700 

07646 

07652 

22030 

07706 

X *POL Y  IN  AQ 

AT  B57 

07653 

60700 

0766) 

07654 

16010 

07667 

07655 

70000 

00040 

07656 

07700 

00001 

07657 

61000 

07673 

SIN(X)  EQ  0 

07660 

6  1000 

07665 

07661 

16050 

07667 

07662 

700  0  0 

00040 

07663 

07600 

00001 

07664 

61000 

07673 

SIN(X)  EO  0 

07665 

10007 

37743 

07666 

14036 

00000 

07667 

10000 

00000 

PUT  PROPER  SI 

GN  IN  Q 

07670 

07000 

00072 

SIMX)  IN  A 

07671 

15036 

00001 

07672 

61010 

07601 

07673 

11000 

00000 

SIN(X)  EQ  0 

07674 

16036 

00000 

07675 

16036 

00001 

07676 

61010 

07601 

07677 

24276 

301 55 

2/PI  AT  B29 

BELTP 


SPURT  OUTPUT  NO.  210 
P0NT0N»7/ 1/65 


Cn 

cn 


CARDS  LI  ID  LABEL 

.  07375 

.  07376  SINC0S11 

.  07377 

.  07400 

.  07401 

.  07402 

.  07403  SINC0S20 

.  07404 

.  07405  COS 

.  07406 

.  07407 

07410 
.  07411 

.  07412 

.  07413 

.  07414 

.  07415 

.  07416 

.  074  17 

.  07420 

.  07421 

.  07422 

.  07423 

.  07424  SINC0S8 

07425 
07426 
07427 
.  07430 


TA  STATEMENT 

1000000000 

31  10375522 

5325041750 

0506321276 

7731554634 

0002366574 

0 

0 

ENTRY 

ENT  Q*L( COS ) 

STR  Q*L ( S I N ) 

ENT  A*L(B4) 

COM  A*37764*YLESS 
JP  SINC0S8 
COM  A#40034*YM0RE 
JP  $*STOP 
ENT  A* 1 

STR  A*L1SINC0S2H ) 
ENT  A*W<r+84)  #APOS 
CP  A*AZERO 
JP  S I  NCOS  1 • ANOT 
ENT  Q*  A 
JP  S I  NCOS  1 
ENT  A*40001 
STR  A*W(B6) 

ENT  A»W(SINC0S10+ 1 ) 
STR  A*W(B6+1) 

EXIT 


END  OF  LISTING 


LOC 

F  JKB 

Y 

NOTES 

07700 

10000 

00000 

1.0  AT  B27 

07701 

31  103 

75522 

K 1  AT  B2B 

07702 

53250 

4  1750 

K3  AT  B29 

07703 

05063 

21276 

K5  AT  B30 

07704 

77315 

54634 

K7  AT  83 1 

07705 

00023 

66574 

K9  AT  B32 

07706 

00000 

00000 

X  HERE  AT  B29 

07707 

00000 

00000 

Y  EQ  X**2  AT  B29 

07710 

61000 

00000 

07711 

10010 

07710 

07712 

14010 

07601 

SET  EXIT  AOORESS 

07713 

11014 

00000 

07714 

04600 

37764 

TEST  EXPONENT 

GTR 

2EXP-13 

07715 

61000 

07727 

NO ?  SET  COSIX) 

EQ 

1.0 

07716 

04700 

40034 

TEST  EXPONENT 

TOO 

LARGE 

07717 

61400 

07717 

YES 

07720 

11000 

00001 

07721 

15010 

07626 

07722 

11634 

00001 

07723 

15440 

00000 

SARGS  IN  A 

07724 

60500 

07615 

07725 

10070 

00000 

07726 

61000 

07615 

07727 

1  1000 

40001 

COSIX)  EQ  1.0 

07730 

15036 

00000 

07731 

11030 

07700 

07732 

15036 

00001 

07733 

61010 

07710 

07734 

37777 

77777 

BELTP 

LABEL 

LOC 

ASSSSS1 1 1 1 

07734 

A2 

06  173 

ACOS1 

07414 

ACOUI 

63427 

ADO 

06325 

AERR  1 

07020 

ALNGOFFSET 

63517 

ALP2 

04416 

ALP5 

04426 

ALP8 

04446 

ALPERR2 

04461 

ALPHISIN 

05576 

ALPH3COS 

05614 

ALPHUSIN 

05604 

ALPHASW 

05702 

ALPHCOS 

05606 

ALPHR 

05723 

ALPHSIN 

05574 

AQR 

06450 

ARCOFELEV 

63522 

AS  I  N  1 

07213 

ASIN4 

07340 

ASINP 

07366 

ASTRORA 

63105 

ASTRB6 

05001 

AT  AN  1 

06655 

ATAN5 

06721 

AZEL8XSC AN 

63500 

AZIMOUT 

64000 

AZIMIN 

75000 

BONE 

06  152 

BANGLE 

06  150 

BCON2 

05326 

BOAY  1 

06232 

BEL2PI1 

06  140 

BELDIFF 

06236 

BELOV 

01011 

BELDVB6 

01066 

BELM 

05735 

BELOUOT 

06246 

BELSUH 

06244 

BELTC3 

00430 

BELTCB5 

00635 

BELTCB7X 

00640 

BELTCERR 

00  76  1 

BELTCT  ABA 

00774 

BELT  JUMP 

00622 

BRANGE 

04463 

BRESTORE 

05355 

C0N6O 

06146 

COS 

07710 

SPURT  OUTPUT  NO.  211 


PONTON-7/ 1/65 


LABEL 

LOC 

LABEL 

LOC 

AiSSSSl 1 12 

07030 

ASSSSS  1  1 1 3 

07024 

AA 

05426 

ACOS 

D7375 

ACQAZIH 

63071 

ACOELEV 

6  30Z5 

actualtime 

63142 

ADOFL 

07064 

ADSCN 

63416 

AFRR 

07060 

AERR2 

07040 

AESCN 

634  17 

ALP  1 

04332 

ALP  10 

04430 

ALP3 

04424 

ALP4 

04425 

ALP6 

04427 

ALP  7 

04431 

ALP? 

04457 

ALPERR 

04452 

ALPH 

05460 

ALPH 1  COS 

05610 

ALPH2C0S 

05612 

ALPH2SIN 

05600 

ALPH3SIN 

05602 

ALPH4C0S 

05616 

ALPHA 

04325 

ALPHAGNErf 

04730 

ALPHB 

05460 

ALPHB 1 

05767 

alphdiff 

06067 

ALPHG 

05717 

ALPHRCOS 

05640 

ALPMRSIN 

05636 

ALPHTAN 

05620 

ANGCONV 

06126 

ARCOFAZIM 

63524 

ARCOFDEC 

63526 

ARCOFRA 

63530 

ASIN 

07171 

ASIN2 

07255 

ASIN3 

07261 

ASIN5 

07347 

ASINK 

07357 

ASINO 

07372 

ASTROOEC 

63106 

ASTRB4 

04777 

ASTRB5 

05000 

ASTRB7 

05002 

ATAN 

0664  7 

ATAN2 

06667 

ATAN3 

06710 

AUPEREQUAT 

63341 

AZELOTIME 

63532 

AZIM 

63053 

AZIMOFFSET 

63512 

AZIMOVER 

63325 

AZIMADO 

63442 

AZMTHSC AN 

63501 

BOOYSIZE 

63462 

B  1234  X 

02011 

B1234XYZ 

02007 

BANGLEX 

06  153 

BC0N1 

05312 

BCONVERT 

05306 

BDAY 

05474 

BDAYNOW 

05476 

BEL2PI 

06165 

BELCOS 

06240 

BELC5 

00000 

BELDR 

05753 

BELOU 

01057 

BEL0VB4 

01064 

BELDVB5 

01065 

BEL0VB7 

01067 

BELDVERR 

0107  1 

BE  LP I XX 

06175 

BELPROD 

06242 

BEL ST OR  1 

06250 

BELST0R2 

06252 

BELTCON 

00002 

BELTC2 

00644 

BELTCB1 

00633 

BELTCB4 

00634 

BELTCB6 

00636 

BELTCB7 

00637 

8ELTCC 

00531 

BEL  TCCERR 

00515 

BELTCSW 

00766 

BELTCTAB 

00770 

BELTEM 

06157 

BELTEMSW 

01000 

BELTP 

00000 

BLASTOFF 

63146 

BRE1 

05360 

BRE2 

05374 

BSELSW 

05701 

COCON 

63414 

CONVERTIME 

63135 

CORCT 

63420 

COSORIENT 

63065 

C0SA2 

04646 

157 


BELTP 

LABEL 

LOC 

COS  A  3 

04  64  7 

C0SA6 

0U652 

COSALF 

04  556 

COSCHI2 

05775 

CCHICON 

0061  7 

CELEV 

63061 

CHE270 

03150 

CRANGE 

63057 

CUR JULOAYF 

05516 

DOPPAOO 

63444 

OALPHABS 

01247 

DALPHAERR 

01253 

OATOOEC 

01440 

OATOERRA 

01470 

OATOK 

01444 

OATDMD 

01424 

OATORAM 

01410 

OATOTBASE 

01420 

DATAOI 

01265 

DATAD4 

01322 

DATA07 

01335 

DATA  10 

01344 

OAT  AA 

01472 

DAT  AOY 

0  1531 

OATAIN 

01255 

OATALZERO 

01561 

OATAHESB 

01756 

OATARAMOOT 

01515 

OATASCHEOA 

01733 

DATAWOOT 

01506 

OATIOEC 

01675 

OATH 

01613 

DATILZERO 

01711 

DATIRAMDOT 

01643 

OATIW 

01621 

OOELT 

05751 

DECOOT 

63010 

DECT 

05452 

OELDEL  T ABU 

01  174 

OELOELT  AB7 

01  177 

0ELT1C0S 

05564 

DELT2SIN 

05554 

OELTUCOS 

05  572 

OELTB 

05452 

DELTR 

05  721 

OELTSIN 

05550 

OIV 

06  406 

ORANGE 

01073 

DRANGEB6 

01  136 

DSECONOS 

63141 

OV 

05745 

SPURT  OUTPUT  NO.  211 


PONTON*  7 / 1 /65 


LABEL 

LOC 

LABEL 

LOC 

C0SA4 

04650 

C0SA5 

04651 

COSAERR 

04640 

COSAERR  22 

34657 

COSAZEL 

63070 

COSCHI 

05660 

COUNT 

07600 

CAZIM 

6306  D 

CELBODY 

63113 

CELCOMPGM 

63424 

CELTIME 

63133 

CHCOR 

63422 

CHI 

05773 

CHPAR 

63431 

CRSSOFFSE  T 

63516 

CURJULDAY 

05514 

DOMEGA 

05436 

DOPPOUT 

66000 

OALPHA 

01203 

DALPHAB4 

31246 

DALPHAB6 

01250 

DALPHAB7 

01251 

OATOA 

01364 

OATOALPHA 

01454 

OATOOY 

01430 

DATOE 

01370 

DATOERRMA 

01735 

OATOI 

01374 

OATOLONG 

01460 

DATOLZERD 

01450 

DATOMESA 

01464 

0AT0MES9 

01466 

DATORAMDOT 

01414 

OATOSCHEO 

01434 

DATOW 

01400 

DATOWDOT 

◦  1404 

DATA02 

01277 

DAT  A03 

01307 

DATA05 

01325 

DAT  A06 

01330 

OATAOd 

01340 

DATA09 

01342 

OAT  A  1 1 

01354 

DAT  A99 

31763 

DATAALPHA 

01566 

DATADEC 

0155  1 

DATAE 

01475 

OAT  A I 

01500 

DATAK 

01555 

DATALONG 

01572 

OATAMO 

01524 

OATAMESA 

01750 

DATANALYZE 

63425 

OAT ARAM 

015  12 

DATASAME 

01271 

DATASCHED 

01537 

OATATBASE 

01520 

DATAW 

01503 

DATIA 

01577 

DAT  I  ALPHA 

31717 

OATIOY 

01665 

DAT  IE 

01605 

DATIK 

01703 

DATILONG 

01725 

DATIMO 

01657 

DAT 1R AM 

01635 

OATISCHEO 

01673 

DATITBASE 

01651 

DATIWDOT 

01627 

DAY 

63  ISO 

DEC 

63003 

DECOFFSET 

63515 

DECLIN 

04661 

DECLINSCAN 

63505 

DELALPH 

05755 

DELDELTA 

31143 

DELDELTAB5 

01175 

DELDEL  T  AB6 

01176 

DELOELTAER 

01201 

DELT 

05452 

DELT 1  SIN 

05552 

DEL  T2C0S 

05566 

0ELT3C0S 

05570 

DELT3SIN 

35556 

DELT4SIN 

05560 

DELTATEE 

63316 

DELTB1 

05771 

DEL  TCDS 

05562 

DELTRCOS 

05644 

DELTRSIN 

05642 

DELTSIN2 

05763 

DELTSINPOS 

35664 

DLLB 

05715 

DRAM 

05442 

DRANGEB4 

01134 

DRANGEB5 

01135 

DRANGEB7 

01137 

QRANGERR 

01141 

DU 

05747 

DUMSECTTG 

63154 

DVOFL 

07072 

DYDMP 

63421 

BEL  TP 

LABEL 

LOC 

DYPRMO 

06177 

EE2 

06047 

EE  S  IN 

05536 

ELEVOFFSET 

63513 

FLFV1N 

76000 

ERCON 

06  17  1 

ERR  1  1 

07074 

ERR  14 

07  100 

ERR  16A 

07105 

ERR20 

07112 

ERR23 

07  120 

ERR26 

07  126 

ERR  30 

07152 

ERR33 

07  160 

ERR4 

07  144 

ERR6 

07  147 

EXP 

06727 

EXP2 

06744 

EXP5 

06763 

EXPNAHE 

63350 

FACTOR  1  1 

06043 

FACT0R2 

06027 

FACTORS 

06035 

FIRSTHRU 

63153 

F I  XL AT 

02320 

F  IXRAI 

02751 

FLATTENING 

63337 

FLT0FX2 

06521 

FLTOIFF 

05512 

FLTPT 

06266 

FL  TWO 

06142 

FP5 

06277 

FPSTOP 

07053 

FRAMESIZE 

63101 

FXINST1 

06120 

FXLGXT 

03744 

FXLTI2 

02275 

FXQUAD1 

03432 

FX0UA04 

03374 

FXRAONY 

03600 

FXRAX 1 

03236 

FXRAX2 

03530 

FXRAXERR 

03607 

FXRAY34 

03346 

FXRT2 

02  63  7 

FXRT4 

02737 

F  XR  TXT 

02743 

FXTOFL 

06474 

GAM  1  COS 

05646 

GAM2TEMP 

06003 

GAMCOS 

05650 

SPURT  OUTPUT  NO.  211 


PONTON*7/ 1/65 


LABEL 

LOC 

LABEL 

LOC 

OYPRYR 

06213 

EE 

05430 

EE2MI 

06051 

EECOS 

05534 

EFP 

06303 

ELEV 

63054 

ELEVOUT 

65000 

ELEVAOO 

63443 

ELVTNSCAN 

63502 

EQUATOR 

63323 

ERR 

07055 

ERR  10 

07107 

ERR  1  2 

07075 

ERR  13 

07077 

ERR  15 

07102 

FRR  16 

07103 

ERR  17 

07  110 

ERR2 

07141 

ERR21 

071  14 

ERR22 

07116 

ERR24 

07122 

ERR25 

07  124 

ERR27 

07  130 

ERR3 

0.  142 

ERR  3  1 

07154 

ERR32 

07156 

ERR34 

07  162 

ERR35 

07164 

ERR40 

07132 

ERR5 

07145 

ERR7 

07150 

ESTSHIFTED 

63143 

EXP1 

06737 

EXP  10 

07006 

EXP3 

06747 

EXP4 

06751 

EXP6 

06772 

E  XP  7 

07003 

FACTOR  1 

06025 

F  ACTOR  1 0 

0604  1 

F  ACTOR  1 IX 

06077 

FACTOR  1 2 

06045 

FACT0R3 

06031 

FACT0R4 

06033 

FACT0R6 

06037 

F  IRSTELEV 

63104 

F IXLONG 

03652 

F  IXLONG I 

03610 

F I  XL AT  I 

01764 

FIXRA 

03060 

FIXRATE 

02552 

FIXRATI 

023  76 

FLTOFX 

06504 

FLTOFX 1 

06516 

FLTONE 

06136 

FLT  BDAY 

05500 

FLTFOUR 

06144 

FLTNDAY 

05502 

FLTSECDIFF 

05510 

FLT  TWO 

06142 

FP1 

06275 

FP4 

06276 

FP6 

06300 

FP7 

06301 

FRAMECON 

06105 

FRAMEFLTPT 

06107 

FREOUENCY 

63317 

FX  INS T 

061  17 

FXLG1 

03740 

FXLGIXT 

03644 

FXLT1 

02355 

FXLTI  1 

02111 

F  XL  T I  XT 

02312 

FXLTXT 

02370 

F  X0UA02 

03451 

FX0UAD3 

03355 

FXRAON 

03557 

FXRADNX 

03571 

FXRAI4 

03023 

FXRAIXT 

03052 

FXRAX14 

03406 

FXRAX  15 

03416 

FXRAX36 

03331 

FXRAX37 

0334  1 

FXRAXT 

03563 

FXRAY12 

03423 

FXRT  1 

02612 

FXRT 12X 

02633 

FXRT20 

02667 

FXRT3 

02674 

FXRT4XX 

02724 

FXRT  I  XT 

02544 

FXSWITCH 

03441 

FXSWI TCH2 

03364 

GOON 

03046 

GOTLL 

02070 

GAM1TEMP 

06001 

GAM2C0S 

05652 

GAM3C0S 

05654 

GAM4C0S 

05656 

GEOCENLAT 

63322 

GEODETLAT 

63321 

BELTP 

LABEL 

LOC 

GETLL 

02062 

GMK 

06061 

GTEMPl 

06005 

HOURHINUTE 

63137 

HERE 

07203 

I D 1 (RADIO 

67776 

I014RA0I0 

70776 

I D17RAOIO 

72776 

I D 1 CELCOR 

63000 

I D (RADIO 

63440 

IOISYSNAM 

77676 

I020RADI0 

73777 

I023RADI0 

75776 

I026RADI0 

76776 

I02RA0C0R 

63051 

I02SYSENT 

77577 

I 02  T I  ME 

63131 

ID5RADI0 

64776 

I08RADI0 

65777 

I  ICOS 

05542 

I  I0EC0M1 

02025 

I  ISIN 

05540 

I ISWITCH 

05676 

INTER 

63413 

INTERDOPP 

74000 

INTERRANGE 

76  777 

KKCM 

06075 

KNCAL 

06053 

LOGE 

07420 

L0GE2 

0751  1 

LOGEF 

07543 

LOGER 

07531 

LONGITUDE 

63320 

LAT  1 

04146 

L  AT  1  3 

04276 

LAT1PI 

04  305 

LAT21 

04127 

LAT24 

04  132 

L  ATEM 

05704 

LL  1 

05456 

LL1SIN 

05624 

LL2SIN 

05626 

L  LL 

05777 

LLSIN2 

05672 

MODI 

04005 

M003 

04010 

M0D6 

04  024 

M0DB5 

04001 

MOONORM 

03775 

M2LAST 

0574  1 

MCPGM 

63412 

9 


SPURT  OUTPUT  NO.  211 
PONT  ON*  7/  1/65 


LABEL 

LOC 

LABEL 

LOC 

GLR 

06161 

GM 

06167 

GMTM0DU24 

63  145 

GMTSHIFTED 

63144 

GTEMP2 

06007 

HOLDNOHOLD 

635  1  1 

HOURREG 

63151 

HEIGHT 

63326 

HP  P  I 

06150 

I 0 1  OR AD  1 0 

66777 

I012RA0I0 

67777 

ID13RADI0 

70775 

ID15RADI0 

7  1776 

1 0 1 6R AD  1 0 

71777 

I 0 1  BRAD  I 0 

72777 

ID19RA0I0 

73776 

I D1ENTPNT 

63410 

I 0 1 RAOCOR 

63050 

ID1RECRD 

632  10 

I D 1 SYSFNT 

77576 

ID1SYSPAR 

63310 

ID1TIME 

63130 

1 02 1  RADI  0 

74776 

I 022RAD I 0 

74777 

ID24RADI0 

75777 

I025RADI0 

76775 

I 02CELC0R 

63001 

I D2ENTPNT 

634  1  1 

ID2RA0I0 

63441 

I 02RECRD 

632  1  1 

I02SYSNAM 

77677 

I02SYSPAR 

6331  1 

ID3RADI0 

63776 

ID4RADI0 

63777 

ID6RA0I0 

64777 

I 07RADI 0 

65776 

I09RA0I0 

66776 

I  I 

05432 

I  ICHE270 

03220 

I IDECOM 

0202  1 

I IOELTDI FF 

06011 

IILESS 

03167 

I 1SIN2 

05670 

IISINPOS 

05666 

INAZIMADD 

63446 

INELEVAOO 

63447 

INTERAZIM 

72000 

INTERCOM 

63426 

INTERELEV 

73000 

INTERLCKSW 

63460 

JUL0AY064 

06125 

KK 

05454 

KKNCALC 

06055 

KMPERNM 

63342 

KRECIP 

06057 

KYBRDL^VEL 

631  10 

L0GE1 

07454 

LOGE 1  A 

07473 

L0GE3 

07525 

LOGEA 

07535 

LOGEK 

07553 

LOGEM 

0Z567 

LOGES 

07563 

LONG 

05462 

LAMDB 

05462 

LAMDR 

05765 

LATH 

04274 

L  AT  1  2 

04275 

L  AT  1  4 

04277 

LAT  1 5 

04300 

LAT 1 P I 1 

04311 

LAT2 

04036 

LAT22 

04  130 

LAT23 

04131 

LAT25 

04  133 

LAT2PI 

04140 

LERR 

07  134 

LL 

05707 

LL ICOS 

05632 

LL  1  LAST 

057  11 

LL2C0S 

05634 

LL2LAST 

05713 

LL4 

06254 

LLCOS 

05630 

LLMINUS 

06  101 

LLSIN 

05622 

LSPFRAU 

63336 

L  ZERO 

05456 

M0D2 

04006 

M0D2PI 

03752 

M0D4 

04014 

MODS 

03765 

M00B1 

03777 

M0DB4 

04000 

M00B6 

04  002 

M00B7 

04003 

MODNUM 

06256 

M 1  LAST 

05737 

MAINSWI TCH 

63334 

MCPFILLER 

71000 

MEGALAST 

05761 

MILLSTNAOD 

63451 

BELTP 

LABEL 

LOC 

MINREG 

63  152 

MSFREQ 

63332 

NCODE 

05703 

NMBELOR 

06063 

NN 

05743 

N  r I  ME  1 

05504 

POLE 

63324 

PERIOOAZ IM 

63523 

PFRIODRA 

63527 

PLANP 

63434 

PRLOG 

63423 

PTS11 

05221 

PTS2 

05037 

PTS9XX 

05257 

PTSB2 

05277 

PTSB5 

05302 

PTSEL 

05004 

PTTEM 

06013 

OUAOL34 

03322 

ROTATEROBX 

63510 

RAOOT 

63007 

RADECOTIME 

63531 

R  ADI  OR A 

63540 

RAGREENCON 

06121 

RAMCHECK 

06103 

RAMLAST 

05757 

RAN2 

04  536 

RANS 

04502 

RANERR24 

04554 

RANGEADD 

63445 

RARAMO 

03503 

ROMTR 

63430 

RECAZIM 

67000 

RECRD 

63415 

RR 

05  731 

SAVE 

07577 

SCELTtME 

63134 

SCL 

06426 

SOEC 

63005 

SET 

06472 

siderfltpt 

06111 

SIN 

07601 

S INAZEL 

63066 

S I  NCOS  1  1 

07701 

S1NC0S6 

07661 

S INCHI 

05662 

SIND2 

04705 

SIND5 

04721 

S  INDR 

04  724 

SKIP 

63331 

SOR2 

06633 

SPURT  OUTPUT  NO.  211 


PONT  ON*  7/1 /65 


LABEL 

LOC 

LABEL 

LOC 

MLOFL 

07070 

MPL 

06374 

MTR 

06360 

MTR  1 

06361 

NEG 

06441 

NIL 

ODDOO 

NMCON 

06134 

NMPERAU 

63340 

NST  ART 

00303 

NST I  ME 

05506 

NUMPT 

05700 

NUMRAN 

06163 

POS 

06343 

POW  14 

07170 

PERI OOOEC 

63525 

PERIOOELEV 

63521 

PI 

06175 

PLOTP 

63436 

PP 

06065 

PREVIOUSTM 

63461 

PTCON 

06123 

PTS  1 

05017 

PTS1 IX 

05217 

PTS  15 

05210 

PTS3 

05107 

PTS9X 

05252 

PTS9XXX 

05267 

PTSB1 

05276 

PTSB3 

05300 

PTSB4 

053D1 

PTSB6 

05303 

PTSB7 

05  304 

PTSERR 

05275 

PTSNORM 

05273 

PUNCH 

06531 

OUAOL 12 

03377 

ROTA  TEAEBX 

63507 

ROT  AT  ER AON 

63506 

RA 

63002 

R AOFFSET 

63514 

RAOARMODE 

63312 

RADCBXSCAN 

635D3 

RAOIOOEC 

63541 

RADIOMETER 

63102 

RADIUS 

63006 

RADIUSDOT 

63DI1 

RAM 

05727 

RAMCOS 

05546 

RAMI  2  70 

06073 

RAM  190 

06D71 

RAMSIN 

05544 

RANI 

04535 

RAN3 

04537 

RAN4 

04540 

RAN6 

04541 

RANERR 

04546 

RANGE 

63052 

RANGEOUT 

70777 

RANGEB 

05731 

RANGEOOT 

63062 

R ARAM  1 80 

03454 

RASCTNSCAN 

63504 

ROXXX 

63433 

RECOROSIZE 

63112 

RECELEV 

70000 

RECFILE 

63212 

RECRDSWTCH 

63155 

RELEASESW 

63156 

R  ZERO 

06552 

SOMEGA 

05434 

SAZIM 

63055 

SBOFL 

07066 

SCHDSW 

05425 

SCHICON 

00613 

SCL  1 

06466 

SCL2 

06467 

SECONDS 

63140 

SELEV 

63056 

SFT 

06353 

SFT  1 

06354 

S  I OERLAMDR 

06113 

S IDERTI ME 

63012 

S I  NOR  I  ENT 

63064 

SINALF 

043  17 

S I  NCOS  1 

07615 

SINCOS 10 

07677 

SINC0S2 

07625 

S  INC0S20 

07706 

SINC0S7 

07673 

S  INCOSB 

07727 

SIND1 

04672 

SIND10 

04725 

SIND3 

04716 

SIN04 

04720 

SIND6 

04722 

SIND7 

04723 

S  I ND9 

04727 

SINDECLIN 

04666 

SOR 

06555 

SOR  1 

06626 

S0R3 

06637 

SQR4 

06643 

BELTP 

LABEL 

LOC 

SQRTI 

06624 

SRAM 

0S440 

SYNCTIMING 

63542 

SYSC0MREG3 

63454 

SYSC0MREG6 

63457 

SYSTART 1 

00671 

SYSTATO 

63315 

THRHF 

06155 

T I  ME  1  LAST 

05520 

TIMEOIFF 

05524 

TIMETOHOLD 

63520 

TL  AST 

05520 

TTWPI 

06165 

TXX 

06015 

UNOE ARTHSW 

05677 

VIZDEC1 

63014 

VIZRA2 

63015 

vvcos 

05532 

WONE 

06136 

WFADO 

63450 

wsi 

06534 

WSI2 

06545 

WS  1 5 

06550 

WS  3 

06536 

WS6 

0654  1 

YRTRAN 

63327 

ZERO 

06463 

END  OF  LISTING 


SPURT  OUTPUT  NO, 


.  211 
PONTON«7/1/65 


LABEL 

LOC 

LABEL 

LOC 

SR  A 

63004 

SRADTIHE 

63136 

STARTREAO 

07  166 

SUB 

06364 

SYSCOMREG 1 

63452 

SYSC0MREG2 

63453 

SYSC0MREG4 

63455 

S YSC0MREG5 

63456 

SYSENTRIES 

77600 

SYSNAMES 

77700 

SYSTAT1 

63313 

SYSTAT2 

63314 

TCONV 

06130 

THFPI 

06153 

TIME 

05466 

TIME1 

05470 

T IME2LAST 

05522 

TIMECORR 

63107 

TIMEMODE 

63103 

TIMEP 

63435 

TIMETEMP 

05472 

TIHTP 

06234 

TRUERANGE 

63063 

TRUETIME 

63132 

TTYSTATUS 

63111 

TWOSECOOP 

63017 

T  XX 1 

06017 

TYPE 

0652  7 

VOAY 

05450 

VELOFLIGHT 

63335 

VIZDEC2 

63016 

VIZRA1 

63013 

VMONTH 

05446 

vv 

05733 

WS  I N 

05530 

VYEAR 

05444 

WONETH 

06132 

WFORO 

63432 

WFFREO 

63333 

ws 

06533 

WS  1  0 

06543 

WSI  1 

06544 

WS  1  3 

06546 

WS  1 4 

06547 

WS  1  6 

06551 

WS2 

06535 

WS4 

06537 

WS5 

06540 

WS7 

06542 

YEARMQNTH 

63147 

YY 

06021 

ZOMEGA 

05725 

ZRTRAN 

63330 

ZZ 

06023 

BEL  TP 

LABEL  LOC 

NIL  OOOOO 

BELTCON  00002 

BELT  CCERR  00515 

CCH ICON  00617 

BELTCB4  00634 

BELTCB7  00637 

SYSTART1  00671 

BELTCTAB  00/70 

BELOV  01011 

BEL0VB5  01065 

RELOVERR  01071 

DRANGEB5  01135 

ORANGERR  01141 

0EL0ELTAB5  01175 

OELOELTAER  01201 

DALPHAB5  01247 

OALPHAERR  01253 

DATASAME  01271 

0ATA04  01322 

0ATA07  01335 

DATA  10  01344 

OATOE  01370 

►-  DATOWDOT  01404 

g  OATOTBASE  01420 

OATOSCHED  01434 

DATOLZERO  01450 

OAT  O^ES  A  01464 

DA  T  A A  01472 

DATAW  01503 

OATARAMOOT  01515 

OATAOY  01531 

OATAK  0  I  555 

OATALONG  01572 

OATH  01613 

OATIRAM  01635 

DATIPO  01657 

DAT  I OEC  01675 

DAT  I  ALPHA  01717 

OATOERRM A  01735 

DATA99  01763 

BI234X  02011 

GETLL  02062 

FXLTI2  02275 

FXLT1  02355 

EXRTIXT  02544 

FXRT12X  02633 

FXRT3  02674 

FXRTXT  02743 

GOON  03046 

CHE270  03150 

FXRAX1  03236 


SPURT  OUTPUT  NO.  212 


P0NT0N*7/ 1/65 


LABEL 

LOC 

LABEL 

LOC 

BELTP 

OOOOO 

BELC5 

OOOOO 

NSTART 

00303 

BELTC3 

00430 

BELTCC 

00531 

SCHICON 

00613 

BF  L  T  JUMP 

00622 

BELTCB1 

00633 

BELTCB5 

00635 

BELTCB6 

00636 

BELTCB7X 

00640 

BELTC2 

00644 

BELTCERR 

00761 

8ELTCSW 

00766 

BELTCTABA 

00774 

BELTEMSW 

01000 

BELOU 

01057 

BEL0VB4 

01064 

BEL0VB6 

01066 

BEL0VB7 

01067 

orange 

01073 

DRANGEB4 

01134 

DRANGE86 

01136 

DRANGEB7 

01  137 

DELOELTA 

01  143 

DELDELTAB4 

01  174 

DEL0ELTAB6 

01  176 

0EL0ELTAB7 

01  177 

DALPHA 

01203 

0ALPHAB4 

01246 

DALPHAB6 

01250 

DALPHAB7 

01251 

DATAIN 

01255 

OAT  AO  1 

01265 

0ATA02 

01277 

OATA03 

01307 

DATA05 

01325 

DAT  A06 

01330 

0ATA08 

01340 

0ATA09 

01342 

DAT  A  1  1 

01354 

DATOA 

01364 

DATOI 

01374 

DATOW 

01400 

DATORAM 

01410 

DATORAMOOT 

014  14 

DATOMO 

01424 

OATOOY 

01430 

OATODEC 

01440 

DATOK 

01444 

OATOALPHA 

01454 

OATOLONG 

01460 

DATOMESB 

01466 

DATOERRA 

01470 

DATAE 

01475 

DAT  A  1 

01500 

DATAWDOT 

01506 

OATARAM 

01512 

OATATBASE 

01520 

DATAMO 

01524 

DATASCHEO 

01537 

OATAOEC 

01551 

DATALZERO 

01561 

DATAALPHA 

01566 

OAT  I  A 

01577 

OAT  IE 

01605 

OAT  I  W 

01621 

OATIWOOT 

01627 

DATIRAMOOT 

01643 

DAT ITBASE 

01651 

0 ATI OY 

01665 

DAT  I SCHED 

01673 

DATIK 

01703 

OATILZERO 

01711 

DATILONG 

01725 

DATASCHEDA 

01733 

DATAMESA 

01750 

OATAMESB 

01756 

F I  XL ATI 

01764 

B  1234XYZ 

02007 

I IDECOM 

02021 

I IDEC0H1 

02025 

GOTLL 

02070 

FXLTI 1 

02  111 

FXLT1XT 

02312 

F I  XL AT 

02320 

FXLTXT 

02370 

FIXRATI 

02376 

FIXRATE 

02552 

FXRT1 

02612 

FXRT2 

02637 

FXRT20 

02667 

FXRT4XX 

02724 

FXRT4 

02737 

FIXRAI 

0275  1 

FXRAI4 

03023 

FXRAIXT 

03052 

FIXKA 

03060 

IILESS 

03167 

I ICHE270 

03220 

0UA0L34 

03322 

F  XR  AX  36 

03331 

BELTP 

LABEL 

LOC 

FXRAX37 

0334  1 

FXSWITCH2 

03364 

FXRAX  14 

03406 

FXOUAOI 

03432 

RARAM  190 

03454 

FXRAPN 

03557 

FXRADNY 

03600 

FXLGIXT 

03644 

FXLGXT 

03744 

MODNORM 

03775 

M0DB5 

04  001 

MODI 

04  005 

M004 

04014 

LAT21 

04127 

L  AT  24 

04  132 

LAT  1 

04  146 

L  AT  1  3 

04276 

LAT 1 P 1 

04  305 

ALPHA 

04  325 

AL  P  3 

04424 

ALP6 

04427 

ALP8 

04446 

ALPERR2 

04461 

RANI 

04535 

RAN4 

04540 

RANERR24 

04554 

COS  A  2 

04  64  6 

COS  AS 

04651 

DECLIN 

04661 

SIND2 

04705 

SIND5 

04  721 

SIND8 

04724 

ALPHAGNEW 

04730 

ASTRB6 

05001 

PTS  1 

05017 

PTS15 

05210 

PTS9X 

05252 

PTSNORM 

05273 

PTSB2 

05277 

PTSB5 

05302 

BCONVERT 

05306 

BRESTORE 

05355 

SCHDSW 

05425 

I  I 

05432 

SRAM 

05440 

VMONTH 

05446 

DEL  T 

05452 

LZERO 

05456 

ALPH 

05460 

TIME 

05466 

BDAY 

05474 

f 


SPURT  OUTPUT  NO.  212 
PONT  ON*  7 / » /6S 


LABEL 

LOC 

LAB*L 

LOC 

F  XR AY  34 

03346 

FXQUAD3 

03355 

FX0UAD4 

03374 

OUAOL  12 

03377 

F  XR AX  1 5 

03416 

F  XR  AY  1 2 

03423 

FXSWITCH 

03441 

FXUUAD2 

034*1 

RARAMO 

03503 

FXRAX2 

03530 

F  XR A  XT 

03563 

FXRADNX 

03571 

FXRAXERR 

03607 

FIXLONGI 

03610 

FIXLONG 

03652 

FXLG1 

D3740 

M002PI 

03752 

MOD  5 

U376S 

M0DB1 

03777 

M0DB4 

04000 

M0DB6 

04002 

MOOB7 

04003 

M0D2 

04006 

M003 

04010 

M006 

04024 

L  AT  2 

04036 

L  AT 22 

04  130 

LAT  23 

04131 

LAT25 

04  133 

LAT2PI 

04  140 

L  AT  1  1 

04274 

LAT  12 

04275 

LAT  1  4 

04277 

LAT  15 

04300 

LAT1PI 1 

04311 

SINALF 

04317 

ALP1 

04332 

ALP2 

044  16 

A  LP4 

04425 

ALP5 

04426 

ALP  1  0 

04430 

ALP  7 

04431 

ALPERR 

04452 

ALP  9 

04457 

BRANGE 

04463 

RAN  5 

04502 

RAN2 

04536 

RAN3 

04537 

R  AN6 

0454  1 

RANERR 

04546 

COSALF 

04556 

COSAERR 

04640 

C0SA3 

04647 

C0SA4 

04650 

C0SA6 

04652 

C0SAERR22 

04657 

SINDECLIN 

04666 

SIND1 

04672 

S  IND3 

04716 

SIND4 

0472D 

SIND6 

04722 

SIND7 

04723 

SIND10 

04725 

SIN09 

04727 

ASTRB4 

04777 

ASTRB5 

05000 

ASTR87 

05002 

PTSEL 

05004 

PTS2 

05037 

PTS3 

05107 

PTS1 IX 

05217 

PTS  1  1 

05221 

PTS9XX 

05257 

PTS9XXX 

05267 

PTSERR 

05275 

PTSB1 

05276 

PTSB3 

05300 

PTSB4 

05501 

PTSB6 

05303 

PTSB7 

05304 

BC0N1 

05312 

BC0N2 

05326 

BRF1 

05360 

BRE2 

05374 

AA 

05426 

EE 

05430 

SOMEGA 

05434 

OOMEGA 

05436 

dram 

05442 

VYEAR 

05444 

VDAY 

05450 

DECT 

05452 

DEL  TB 

05452 

KK 

05454 

LL! 

05456 

ALPHB 

05460 

lamdb 

05462 

LONG 

05462 

TIHE1 

05470 

timetemp 

05472 

BDAYNOW 

05476 

FLTBDAY 

05500 

BELTP 

LABEL 

LOC 

FLTNOAY 

05502 

FLTSECOIFF 

05510 

CUR JUL  DA YF 

05516 

T I ME?L  AST 

05522 

VVCOS 

05532 

i  isin 

05540 

RAMCOS 

05546 

OELT2SIN 

05554 

OELTCOS 

05562 

DELT3COS 

05570 

ALPH1SIN 

05576 

ALPH4SIN 

05604 

ALPH2COS 

05612 

ALPHTAN 

05620 

LL2SIN 

05626 

LL2C0S 

05634 

DELTRSIN 

05642 

GAMCOS 

05650 

GAM4COS 

05656 

OFLTSINPOS 

05664 

LLSIN2 

05672 

NUMPT 

05  TOO 

NCODE 

05703 

LL 1 L  AST 

0571  1 

ALPHG 

05717 

Z OMEGA 

05725 

RANGEB 

05731 

M 1  LAST 

05737 

DV 

05745 

BELOR 

05753 

MEGALAST 

05761 

ALPHB  1 

05767 

COSCHI2 

05775 

GAM2TEMP 

06003 

I IOELTDIFF 

0601  1 

T  XX  1 

06017 

FACTOR  1 

06025 

FACTOR** 

06033 

F  AC  TOR  1 0 

0604  1 

EE2 

06047 

KKNCALC 

06055 

NMBELDR 

06063 

RAM  I 90 

06071 

F  ACTOR  1 IX 

06077 

FRAMECON 

06105 

siderlamdr 

06113 

RAGREENCON 

06121 

ANGCONV 

06  126 

NMCON 

06134 

BEL2PI  1 

06140 

FLTFOUR 

06  144 

SPURT  OUTPUT  NO.  212 


PONT  ON*7/ 1 /65 


LABEL 

LOC 

label 

LOC 

NT  I  ME  1 

05504 

NSTIME 

05506 

FLTOIFF 

055  12 

CUR JULD AY 

05514 

TLAST 

05520 

T  IME  1  LAST 

05520 

TIMEDIFF 

05524 

VVSIN 

05530 

EECOS 

05534 

EES  IN 

055.56 

IICOS 

05542 

RAMSIN 

05544 

DELTSIN 

05550 

DELT  ISIN 

05552 

DFLT3SIN 

05556 

0ELT4SIN 

05560 

DELT1C0S 

05564 

DEL  T2C0S 

05566 

DELT4C0S 

05572 

ALPHSIN 

05574 

ALPH2SIN 

05600 

ALPH3SIN 

05602 

ALPHCOS 

05606 

alphicos 

05610 

ALPH3C0S 

05614 

ALPH4C0S 

05616 

LLSIN 

05622 

LL 1 S IN 

05624 

LLCOS 

05630 

LL 1  COS 

05632 

ALPHRSIN 

05636 

ALPHRCOS 

05640 

DELTRCOS 

05644 

GAM1C0S 

05646 

GAM2C0S 

05652 

GAM3C0S 

05654 

COSCHI 

05660 

S  INCH I 

05662 

IISINPOS 

05666 

I  ISIN2 

056  TO 

IISWITCH 

05676 

UNDE ARTHSW 

05677 

BSELSW 

05701 

ALPHASW 

05702 

LATEM 

05704 

LL 

05707 

LL2LAST 

05713 

DLLB 

05715 

DELTR 

05721 

ALPHR 

05723 

RAM 

05727 

RR 

05731 

VV 

05733 

BELM 

05735 

M2LAST 

05741 

NN 

05743 

DU 

05747 

DDELT 

05751 

OELALPH 

05755 

RAMLAST 

05757 

0ELTSIN2 

05763 

LAMDR 

05765 

0ELTB1 

05771 

CHI 

05773 

LLL 

05777 

GAM  1  TEMP 

06001 

GTEMP1 

06005 

GTEMP2 

06007 

PTTEM 

06013 

T  XX 

06015 

YY 

06021 

1 1 

06023 

FACT0R2 

06027 

FACT0R3 

06031 

FACTORS 

06035 

FACT0R6 

06037 

FACTOR  1 1 

06043 

FAC  TOR  1 2 

06045 

EE2M1 

06051 

KNCAL 

06053 

KRECIP 

06057 

GMK 

06061 

PP 

06065 

ALP HD  IFF 

06067 

R  AM  I 2  70 

06073 

KKCM 

06075 

LLMINUS 

06101 

RAMCHECK 

U6  103 

FRAMEFLTPT 

06107 

S I DERFLTPT 

06111 

FXINST 

06  117 

FX INST  1 

06120 

PTCON 

06123 

JULDAY064 

06125 

TCONV 

06130 

WONETH 

06132 

WONE 

06136 

FLTONE 

06136 

flttwo 

06142 

FLTWO 

06142 

C0N60 

06)46 

BANGLE 

06150 

165 


BELTP 

LABEL 

LOG 

HFP  I 

06150 

BANGLEX 

06153 

GLR 

06161 

BEL2PI 

06  165 

A2 

06  173 

DYPRHO 

06177 

TIMTP 

06234 

BELPROD 

06242 

BELSTOR1 

06250 

MODNUM 

06256 

FP4 

06276 

FP7 

06301 

POS 

06343 

MTR 

06360 

HPL 

06374 

NEG 

06441 

SCL  1 

06466 

FXTOFL 

06474 

FLT0FX2 

06521 

WS 

06533 

WS3 

06536 

WS6 

06541 

WS  1  1 

06544 

WS  1  4 

06547 

RZERO 

06552 

SOR 1 

06626 

S0R4 

06643 

ATAN2 

06667 

EXP 

06727 

EXP3 

06747 

EXP6 

06772 

AERR1 

07020 

AERR2 

07040 

AERR 

07060 

MLOFL 

07070 

ERR  1 2 

07075 

ERR  1  5 

07  102 

ERR  1 0 

07107 

ERR21 

07114 

ERR24 

07  122 

ERR27 

07130 

ERR2 

07141 

ERRS 

07145 

ERR30 

07152 

ERR33 

07  160 

STARTREAD 

07166 

HERE 

07203 

ASIN3 

07261 

ASINK 

07357 

ACOS 

07375 

LOGEI 

07454 

SPURT  OUTPUT  NO.  212 


PONTON»7/ 1/65 


LABEL 

LOC 

LABEL 

LOC 

BONE 

06152 

THFPI 

06153 

THRHF 

06155 

BELTEM 

06157 

NUMRAN 

06163 

TTWPI 

06165 

GM 

06167 

ERCON 

0617  1 

PI 

06175 

BELPIXX 

06175 

DYPRYR 

06213 

BDAY1 

06232 

BELOIFF 

06236 

BELCOS 

06240 

8ELSUM 

06244 

BELQUOT 

06246 

BELST0R2 

06252 

LL4 

06254 

FLTPT 

06266 

FP  1 

06275 

FP5 

06277 

FP6 

06300 

EFP 

06303 

ADO 

06325 

SET 

06353 

SFTl 

06354 

MTR  1 

06361 

SUB 

06364 

DIV 

06406 

SCL 

06426 

AOR 

06450 

ZERO 

06463 

SCL2 

06467 

SET 

06472 

FLTOFX 

06504 

FLTOFX l 

06516 

TYPE 

06527 

PUNCH 

06531 

WS1 

06534 

WS2 

06535 

WS4 

06537 

WS5 

06540 

WS7 

06542 

WSIO 

06543 

WS  1 2 

06545 

WS  1  3 

06546 

WS  1 5 

06550 

WS  1 6 

06551 

SOR 

06555 

SORT  1 

06624 

S0R2 

06633 

SQR3 

06637 

ATAN 

06647 

ATAN  1 

06655 

ATAN3 

06710 

ATAN5 

06721 

EXP1 

06737 

EXP2 

06744 

EXP4 

06751 

EXP5 

06763 

EXP7 

07003 

EXP  10 

07006 

A  $$$$$ 1 113 

07024 

ASSSSS1 1 12 

07030 

FP STOP 

07053 

ERR 

07055 

AOOFL 

07064 

SBOFL 

07066 

DVOFL 

07072 

ERR  11 

07074 

ERR  1  3 

07077 

ERR  1 4 

07100 

ERR16 

07103 

ERR16A 

07105 

ERR  1 7 

07110 

ERR20 

07112 

ERR22 

07116 

ERR23 

07120 

ERR25 

07124 

ERR26 

07126 

ERR40 

07132 

LERR 

07134 

ERR3 

07142 

ERR4 

07144 

ERR6 

07147 

ERR  7 

07150 

ERR31 

07154 

ERR32 

07156 

ERR34 

07162 

ERR35 

07164 

P0W14 

07170 

ASIN 

07171 

AS  I N  l 

07213 

ASIN2 

07255 

ASIN4 

07340 

ASIN5 

07347 

ASINP 

07366 

ASINQ 

07372 

ACOS  1 

07414 

LOGE 

07420 

LOGEI A 

07473 

L0GE2 

07511 

BELTP 

LABEL 

LOC 

LOGE3 

OT525 

LOGEF 

07543 

LOGEM 

07567 

SIN 

07601 

SINC0S6 

07661 

SINCOS1 1 

07701 

SINCOS8 

07727 

I D2CELCOR 

63001 

SRA 

63004 

RADOT 

63007 

SIDERTIME 

63012 

VIZRA2 

63015 

I  0 1RADCOR 

63050 

AZIH 

63053 

SELEV 

63056 

CELEV 

63061 

SINORIENT 

63064 

COSAZEL 

63070 

ERAHESIZE 

63101 

FIRSTELEV 

63104 

TIMECORR 

63107 

RECOROSIZE 

63112 

ID2TIHE 

63131 

SCELTIME 

63134 

HOURMINUTE 

63137 

actualtime 

63142 

GMTMODU24 

63145 

DAY 

63150 

FIRSTHRU 

63153 

RELEASESW 

63156 

RECFILE 

63212 

RADARMODE 

63312 

SYSTATD 

63315 

LONGITUDE 

63320 

EQUATOR 

63323 

HEIGHT 

63326 

SKIP 

63331 

MAINSWITCH 

63334 

FLATTENING 

63337 

KMPERNM 

63342 

I D2ENTPNT 

6341  1 

COCON 

63414 

AESCN 

63417 

CHCOR 

63422 

DATANALYZE 

63425 

RDMTR 

63430 

RDXXX 

63433 

PLOTP 

63436 

AZIMADD 

63442 

RANGEADD 

63445 

WFADD 

63450 

SPURT  OUTPUT  NO.  212 
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LABEL 

LOC 

LABEL 

LOC 

LOGER 

07531 

LOGEA 

07535 

LOGEK 

07553 

LOGES 

07563 

SAVE 

07577 

COUNT 

07600 

SINC0S1 

076  15 

SINC0S2 

07625 

SINC0S7 

07673 

SINC0S10 

07677 

SINC0S20 

07706 

COS 

07710 

ASSStSI 1 1 1 

07734 

I 0 1 CELCOR 

63000 

RA 

63002 

DEC 

63003 

SDEC 

63005 

RADIUS 

63006 

DECDOT 

63010 

RADIUSDOT 

63011 

VIZRA1 

63013 

VIZDEC1 

63014 

VIZDEC2 

63016 

TWOSECDOP 

63017 

ID2RADC0R 

63051 

RANGE 

63052 

ELEV 

63054 

SAZIM 

63055 

CRANGE 

63057 

CAZIM 

63060 

RANGEDOT 

63062 

TRUERANGE 

63063 

COSOR I  ENT 

63065 

SINAZEL 

63066 

ACQAZIM 

63071 

ACGELEV 

63075 

RADIOMETER 

63102 

TIMEMODE 

63103 

ASTRORA 

63105 

ASTRODEC 

63106 

KYBRDLEVEL 

63110 

TTYSTATUS 

63111 

CELBODY 

63113 

ID1TIME 

63130 

TRUETIME 

63132 

CELTIME 

63133 

CONVERTIME 

63135 

SRADTIME 

63136 

SECONDS 

63140 

DSECONDS 

63141 

ESTSHIFTED 

63143 

GMTSHIFTED 

63144 

BLASTOFF 

63146 

YEARMONTH 

63147 

HOURREG 

63151 

minreg 

63152 

DUMSECTTG 

63154 

RECROSWTCH 

63155 

ID1RECRD 

63210 

I D2RECRD 

63211 

I D 1 SYSPAR 

63310 

ID2SYSPAR 

63311 

SYSTAT1 

63313 

SYSTAT2 

63314 

DELTATEE 

63316 

FREQUENCY 

63317 

GEODETLAT 

63321 

GEOCENLAT 

63322 

POLE 

63324 

AZ I  MOVER 

63325 

YRTRAN 

63327 

ZRTRAN 

63330 

MSFREQ 

63332 

WFFREQ 

63333 

VELOFLIGHT 

63335 

LSPERAU 

63336 

NMPERAU 

63340 

AUPEREOUAT 

6334  1 

EXPNAME 

63350 

ID1ENTPNT 

634  10 

MCPGM 

63412 

INTER 

63413 

RECRD 

63415 

ADSCN 

63416 

CORCT 

63420 

DYDMP 

63421 

PRLOG 

63423 

CELCOMPGM 

63424 

INTERCOM 

63426 

ACQUI 

63427 

CHPAR 

63431 

WFORD 

63432 

PLANP 

63434 

TIMEP 

63435 

I  DIRADIO 

63440 

ID2RADI0 

6344  1 

ELEVADD 

63443 

DOPPADD 

63444 

INAZIMADD 

63446 

INELEVADD 

63447 

MILLSTNADD 

63451 

SYSC0MREG1 

63452 

% 


BELTP 

LABEL 

LOC 

SYSCOMREG2 

63453 

SYSCOMREG5 

63456 

PREVIOUSTM 

63461 

AZMTHSC AN 

63501 

RASCTNSC AN 

63504 

ROT  ATE AEBX 

63507 

AZIMOFFSET 

63512 

DECOFFSET 

63515 

T I METQHOLD 

63520 

PERIODAZIM 

63523 

ARCOFOEC 

63526 

RADECOTIME 

63531 

RAOIODEC 

63  541 

ID4RADI0 

63777 

I06RA0I0 

64  777 

IOQRAOIO 

65777 

I  0 1  OR  AO  1 0 

66777 

I  0 1 2R AO  I  0 

67  777 

I  0 1 4R ADI  0 

70776 

I  0 1  SR AO  1 0 

71776 

ID17RADIO 

72776 
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